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I. INTRODUCTION 


di ጠጩጩ ጨጨ መ ee oe 


GENERAL DTSIGUSS ION 

This thesis presents the adaptation ۹ی۹۹‎ 7۰ 
uc tme micro-computer based multi-processor operating 
system, called MCOSTEX, tc allow simultanecus user access to 
the CP/M opereting system as well as to MCCRTEX. User 
program development using Digital Researcn's PL/I-&6 
spo system is supported. 

Improvement in mMLCcro-Urocessor eapapırlities, ane 
performance, comvtined with continued reductions in hardware 
ሺ portend the" development "of powerful, relatively 
ቪን ር ነር”. —micro-processor systems. Continued ۱ ۱َ 4 in 
VLSI technology applications in parallel with development of 
appropriate ooerating systems will produce systems superior 
Say "res yeevs to "computers developed using current 
mainframe techrclogy. Systems Of processors allow for 
eraceful degradation under fault conditions and TOT 
ከከ ከ ክክ ነስሰነሰያየ ውስ ብ the system, enhancing survivability in 
hostile environments. Further, parallel processing allows 
increased throughput and response time, and ir real time 
application can guarantee successful monitoring at high 
some le Waves and densities, without conflict. 

A successful: multi-processor system must control 


sequencing of infter-independent processes and access to 


12 


limited  resourcese For efficiency it must? ۹+ +107 
600175 switching necessary for multi-processing on 
individual processors. Additionally, 6505211161515 агл ክስ ስን 
Simultaneous multi- processor access to common memory must ከፎ 
minimized without degrading throughput. This should ME 
accomplished at a reasonable 0+ ቹዊ5፡5፡) manner thaw 
allows as many processors as are necessary to achieve the 
desired degree of concurrence and robustness. 

The purpose of this thesis is to advance the development 
of a real time multi-processor system within the overall 
goals of the AEGIS weapons system simulation project. Trens 
goals include the demonstration of the operating system jon 
commercially available, inexpersive, general purpose micro- 
Computers. The system should reouire minimum development of 
both nardware ana software. To the maximum extent possible, 
custom developments should be completely general in nature. 
in pursuit of these goals, MCORTEX is configured to 9 ٥٣ 
in conjunction with a commercially available opera tan 
system, making the functions of both systems availa c sS 
user programs. Additionally, mechanisms allowing user 
progran development within tne framework of a commercially 


available language system are provided. 


B. BACKGROUND 
The AEGIS weapons system relies on the four-processor 
AN/UYX-7 mainframe computer for real-time processing of 


large amounts of data concerning target detection and 


11 


adoi sition. "NP tbe Naval Postgraduate School 
seeks to demonstrate that a system as complex as AEGIS car 
E controlled more economically, with improvements in 
graceful degradaticn characteristics, and without 
ПОО ОЛИ ОК loss using a distributed system of micro- 
Computers. Tae project requires identification and 
implementation cf an applicable hardware corfiguration, 
development of a Suitable operating system, duplication of 
Significant real-time functions of tne AEGIS weapons system 
Eco rporation of valid*simulation processes for test and 
evaluation ef the total system. 

| ክስ 11 1520 967128 ma Sigle board micro-computer 
E oN the 16 bit INTEL 828€ micro-processor, was selected 
as the system hardware base. Initial design of an operating 
system specific to the INTEL iSFC 86/12A was completed in 
1987 and implementation was accomplished in three Naval 
ከዚ የፃ ንር School thesis in 1981 and 1982. The 172 
thesis in this series written by Cox [Ref. 1] simplified the 
meen Of “CORTEX to more successfully address security and 
cverhead issues in the real-time embedded applications 
ewe ет by the project. Cox also added a supervisory 
layer to tne architecture, simplifying access and enhancire 
Security. Klinefelter [Ref. 2] expanded and generalized 
COX 5 work. All implementation to this point was done оп 


the ISIS-II development System, with mu 15507 کا‎ 
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and executior accomplished 7715 ۵0۷10۹۴ ۱17912 ١۱۱+ 
link to the target hardware. 
The goals of this thesis are to: 

I: Fring the powerful, highly portable functions 
of the CP/M-86 operating system under the control of 
MG@GRTEY . This will provide rapid 9 user 
capabilities within the restrictions imposed by the mo 
reentrancy uo GBM a N Tay Using MCORTEX funetadomem 
control of access to CP/M-86 can. be selectively applied 
depending on the contextual requirements of the application. 

2. Sever the link with the development system, and 
provide a simple, convenient method of creating the MCOPTEX 
environment. Tnis should include user program and MCORTEX 
loading, transfer of control to MCORTEX, and mechanisms oii 
return OS control TOD GS 

ш Provide access mechanisms to the ዕዕ የከ 
Supervisor compatible with Digital Research ፄ ۲7 
language system, allowing user programs to be developed ina 


high level, portable language. 


Co STRUCTURE O F ۹ ٣ 

chapter I discusses the overall direction of the ANE 
weapons system simulation project and the place this Teer 
holds in accomplishing project aoals. 

Chapter II لو‎ SES the issues which resulted wm 
Changes to MCORTEX as اس‎ by Klinefelter, and 


presents an overview GER the EE f vnc t iots 
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٣۰٠٠٠٠٠٠ Dio TIT details the architecture of the MCORTEX 
КОО ОЛЕ О ЛОО О пе inveractiors between the hardware, 
CP/M-86 and MCORTEX. 

Chapter IV presents the MCORTEX loader, discussing 
1.8 ሠጠ! ከስስክር ያስን ንህ፡።፡ን. vo alternative methods for invoking 
V“CORTEX. 

Chaoter V explains the interface provided between PL/I- 
EO and the MCORTEX supervisor. Procedures necessary to 
successfully create MC ORTH virtual processors are 
11 501155-20 ٠, 

Chapter VI summarize the current state of the system, 
points out problem areas, and makes suggestions for future 


research and testing. 
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II. IMPLEMENTATION ٧0٣١1٧٣٣٣٢ ٢ ህከ АШУ 


حسہ میت emm መሥ‏ ہے سو gem‏ ` سے ጨመ < መ መሙ s‏ يی سد س  ጨሙጨሙ s “a a m w መመ a‏ س 


A. DESIGN CONSIDERATIONS 

In a real-time system, multi-processing on a singie 
processor decreases vrocessor idle time. A 1111-0-0 m 
configuration extends the range of this economy 10 0 ٥٠ 
opportunities to exploit parallel and pipeline processing 
technioues that further enhance overall system goals. 
Careful consideration must be given to control cf sh ap 
resources, process integrity, 1۳٣٠۳٣٣6899 5004 ۳٣٢٣٢ = 
methods of context switch inittation, and context switchize 


overneac. 


3, ፅኔቭን ን RESCUR 

The most important shared resource ina multi-processor 
environment 15 common memory. MOORTEX relies a 
nierarchical bus structure to limit the requirement mm 
access to common memory. Each processor has local memory, 
addressable without access to a shared bus. A process 
executing in local memory makes demands on the common bus 
only to pass computed data to external processes, or when 
MCORTEX functions are used. Related processes with high 
intercomminication rates should reside in the local memory 
of a single processor, thus avoiding highecommon 515 Eas 

To perform its functions, MCORTEX sets up a section ال‎ 


commor memory called GLOBAL memory. Table 1 shows the 


1. 


logical organization of this shared resource (see the last 


four vazes of Avpendix H for actual locations.). Access to 


TABLE 1: GLOBAL MEMORY 


OFFSET MNEMONIC TYPE/INIT nEMAFXS 

0 | GLOBALSLOCK 8 0 

1 5 8 Z Number of real processors 

2 NRS VPS‘ MAXSCPU) E 0 Number of virtual processors 


“one byte for each possible 
OMAA SCU currently = 18) 
12 EDWSINTSFLAS(MAXECPU) 
Р Х Naräware interrupt flag (one 
for each possible CPU, MAXSCPU 
currently = 12) 


ኙገ 
ii 


+8 پ۹‎ + +٥۵٥ B 1 Number cf events 
SVCSTEL(122) 5 Event count table 
2S 8۵1ھ‎ 8 FE Fvent count name 
24 VALUE W 0 *vent count value 
26 TERSAD E ፳ Event count thread 
42% CPUSINIT Ë 0 Dom СР рег 
424 S=EGUENCEZS B 2 Number of sequencers 
SEOSTABLE(100) S Seguencer table 
25 5 105 ١ B X Name of sequencer 
426 SEOSVALUE W X Value of sequencer 
VPM(MAXSCPU * MAXSVPMSSCPU) 
S ۸۰" ۲۱1٦ processor=™mdaD 


(MAXSCPU currently = 16, 
MAXSVPMSSCPU currently = 1£) 
Virtual processor ident. 
Virtual processor state 
emi! processor priority 

Count awaited 
Stack pointer register 
Stack segment register 


725 VPSID 

726 VPSSTATS 

72727 VPSPFIORITY 
728 EVCSAWSVALUE 
730 SPSREG 

05527 555 

መረ 


de) x =. — cJ 0 
md os Pd Ps P< DS 


В — byte W — word Se a Ctre X - not initialized 


GLOBAL memory is controlled through the combiratior of a 


hardware tus lock, and a software locx {GLOBALSLCCK) located 


117 GLOBAL memory. “hen a process sets the hardware bus 


Mis. 


lock, it 15 given sole access to tne common pus r E 
ጎር ገ ር በ ስ" сус се During this cycle, the process makes an 
exchange of the value in a register (contents 77F) with 
0 ۸ 6 757 The processor then examines the contents of 
the exchange register. If tne register now contains zerok 
the processor is granted access, if not, the process ٦ 
the procedure until a zeroeis obtained from GLOBAL sS 
Because access to GLOBAL memory is controlled by ۸0 ስመ 
waits should be infrequent and short in duration. when 
relinquishing the software lock, the process merely sets 
GLOEALSLOCK temziereor 

Users have no access to GLOBAL memory, however ۸٨ 
provides for user control of shared resources throusb dae 
held in GLORAL memory. sequencers, located in the sequence 
table section of GLOEAL memory, are used to provide a turn 
takirg mechanism. Each shared resource is assigned a 
Corresponding sequencer. When processes require a resource, 
they request a turn through the supervisory ۲۰.٦ 
TICKET, specifying the applicable sequencer. TICKET ل٢‎ m 
a number indicating the callers turn at the required 
resource. This is similar to getting a turn number 2M 
barber shop. TICKET advances the sequencer value in global 
memory so that succeeding reauests receive higher numbers. 
The process requesting the resource then makes another 
supervisory call, this time on AWAIT, providing both WM 


identification of the resource and the process turn number. 
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3 the resource is not busy, the process will receive 


immediate access, otherwise the process gives up the CPU. 


NEN hOCHSS INTEGAITY 

The design of MCORTEX relies heavily on user cooperation 
for process integrity. The supervisor controls access to 
tine MCOXATEX functions, but even this is a software control 
EN wl not withstand malicious assuit or catastrophic 
failure. MCORTEX is targetted at embedded systems 
applications wrere maliciovs assault is not expected. 
КОО ሥሪ оп from catastrophic failure requires hardware 
protection not presently in the system. The low cost of 
micro-computers however, allows for redundant tack up 


systems wnich can limit the affects of catastrophic failure. 


ANT LRDRQOURSSWOTNCERONIZNETION 

Frocess synchronization 1S accomplished under  MCOETEX 
КОМ EE EENEG," ДҮАТТ, and PREEMPT. These 
Synchronizing primitives are supported with the functions 
CREATES EVOC, OR MATES SHO, READ, 3171 TOR RIS Consumer 
processes use AWAIT to ensure that data they require is 
ready. Producer processes use ADVANCE to inform consumers 
that new data has been computed. PREBMPT is used by one 
process to directly ready another process. 0) ٤ 
is activation of high priority system" processes of a 
time critical nature. A call ona synchronizing primitive 


may, or may not result in relinquishing the CPU. The CPU is 
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always assigned to the highest priority ready virtual 
processor on each board regardless of which sva nr u ia 
function envoked the scheduler. Before usine ADVANCE or 
AWAIT, an event count must be created usins CREATS nE 
Consumers ant producers then communicate using the agreed 
upon event count. The current value of an event count саг 
be determined through a call on READ. The functions MM 
CREATESSEQ and TICKET are as discussed earlier, but EE 
broader applications. 

MCORTFX handles two types of context switching. The 
first type results when control of a CPU is relinquis 
through a MCORTEX function call. Under thes2 conditions the 
calling process is not halted in the midst of sone task, but 
at a place ‘convenient for the process. Some subset of the 
processors registers contains all required state 
infommation. MCORTEX assumes this subset includes the Ds, 
IP, CS, SS, SP, and BP registers. Additionally, a normal 
return indicator is saved. The second type of context 
Switching results from an interrupt. This switching assumes 
nothing, and saves the complete state of the process ٦ 
interrupted as well as an interrupt return indicator. 
This recognition of two switch types makes context switching 
faster for the more common normal” return. 

Farly implementers of MCORTEX considered the context 
switchine overhead question in detail. Their solution gave 


&reater importance to the issue of speed than to the issue 


NO 


e€ 0012509090111 الا‎ ይጨ መ ን። ምን ን ን ን ስ Swi Ching routines in MCOETEX, 
MN: 56 virtual processor scheduler and the interrupt 
handler, are the only portions of the MCCRTEX core written 
in assembly language. Another decision motivated ty the 
Speed imperative assumed that each virtual processor owned a 
Suck for storing state information. This decision was 
followed by another assuming that the stack segment pointer 
for each stack was different. Tris allowed a bootstrap like 
context recovery. A search tnrough the virtual orocessor mao 
idertifie? tne hignest priority ready process. Vırtaal 
orossor mac information included the process stack segment 
value. This value was retrieved, and subsequently used to 
mer ieve three additional pieces of processor State 
1 1109 2598 510 46 ۳٣۰٠٠٠ ٠٠٦ “УБ ТО two, and four from the stack 
Serie Were used to retrieve the process stack pointer 
value, the process stack base pointer value, and a return 
type indicator. Recovery of the stack state allowed 
pecovery of the entire state of the virtual processor, and 
processing could continue. 

This context Switching method has many advantages. 
virst, once the stack segment of a process has been stored 
in a known, retrievable location, it never needs updating. 
ህወ... ተር ከው stack remains fixed, and access is 
ОООО ЫЛ 1126021 the contents of the first few bytes at 
the base of the stack. second, less space is required to 


store the stack segment than to Store the entire stack 
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pointer. (This information. is stored. in GLOBAL لر رر‎ 
Third, since each process was uniquely identified by its 
Stack segment register, MCORTEX functions did wot 128 لر‎ 
identify the process they were resvonding to when using the 
scheduler. The scheduler simply stored state information at 
the vase of whatever stack segment was active when THS 
scheduler was called. 

The assumption that each process used a different stack 
Seenent value is not completely general, and in fact was not 
true for procedures compiled and linked under the Digital 
Fesearch PL/I-86 language system. This. conflict. fom 
changes in the context switching mechanisms of MCORHTEX. Tee 
entire stack pointer (SS and SP registers) is now stored in 
GLOBAL memory, and MCCRTEX functions maxing use of the 
scheduler must indicate (in the Processor Data 41 


Table, PRES) which virtual processorethey aresservieinz: 


E. DELETED FUNCTIONS 

Functions previously available under MCOATEX include 
OUTSCHA®, OUTSLINE, CUTSYUM, OUTSDNUM, INSCEAR, INSNUMZLONMM 
INSDNUM. With CP/M-86 under the control of MCORTEX, (ieee 
utility functions are redundant and have been removed. 
However 2 version "ot MOOT hn these 111611 
incorporated has been retained ¡or troutleshooting purto Ee 
۲۲6۰۰۰٦ incorporated by Klinefelter has also 


been removed in light of the avarlepnı un OTS IEE 


Al 
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This implemertation of MCORTEX is based on the INTEL 
ከየከከ፡ በሪ single T board computer using a MULTIBUS tack 
plane. Specific, detailed irformation pertaining to both 
these components is available in [Ref. 2] and [Ref. 4]. The 
د ااا‎ DUS mae lsc connects. two memory extersions into the 
system. ۶.5٦ ٣۰۶٣۰ ٥٣٥١ 519071 15 00580 55 common memory for 
IN process COMMU cat ion under MGORTEX and*for CP/M multi- 
use “Sy svienecomtr ol. A 63K extension provides additional 
memory required to operate the PL/I-86 compiler and other 
٠۰٠ LONE not co» Sbralnedetowmexeéecute in the 64# of ‘memory 
DES ka each processon. Additionally, a bubble memory 
system and a hard disk system are available on MULTIBUS. A 
second hard disk system is accessed through the parallel 
Rg Cr Mone "SEC. Figure 1 is a representation of this 
configuration with two SBC’s shown. 

The  iSRC86/12^ provides a three level hierarchical bus 
stri tufe. At the first level, the 2086 Brdeessor 
communicates through the on board bus with up to29 4K of ROM, 
with serial and parallel I/O ports and with the dual-port 
TON trol “and access to local RAM is provided by the 
second level dual-port bus. The third bus level, the 


MULTIEUS interface, provides access to the MULTIEUS. The 
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MULT IBUS 





MULTIEUS MULTIBUS 
CPU | | BUBBLE 
| 4 | Î f MEMORY 
| 10 
HARDI 4 ! መጫ 1/0 | 1 
Drs Ë Z ! | 1 { 1 Í REMEX 
| f Disk 
CONT. 
ROM 
DUAL | | 
PORT 32k 
BUS | | nus RAM 
64K 64k 64K 
Í LOCAL | LOCAL RAM 
RAM RAM 
ETHER 
SINGLE SINGLE NET 
ROARD EOARD CONT. 
COMPUTER COMPUTER 
ES IMPLEMENTATION 


ENVIRONMENT 





D esenti used wiring Option excludes off board access to 
ከር! “RAM. Differences between memory access times at the 
first two levels are negligible, but memory accesses 
involving MULTIBUS require a minimum 25% increase in access 
time. 

The. high performance, general purpose 82086 micro- 
processor base of the iSBC86/12A contains an Execution Unit 
(EU) and a Bus Interface Unit (BIU). EU functions are 
supported by instruction fetches and operand reads and 
writes conducted by the BIU. The BIU can stack instructions 
in an internal RAM to a level of six deep increasing لا‎ 
efficiency and decreasing bus idle fime. 

The 2826 has eight 16 bit general purpose registers, 
four being byte addressable. The remaining four are 
primarily ро ет registers, сап be used as 
@eeunulators. Additionally, the 8886 has four segment 
registers, an instruction pointer register and a flag 
register with nine status +1 

A segmented one mega-byte address space is provided for 
ከ የ የ፣ ። 086 MmierPoa-processor. This is accomplished by 
combining the 16 bits cf each segment register left shifted 
four bits, with the 16 bits of an associated pointer 
rezister unsnifted. Ine resulting 20 bits form a physical 
address. For any given segment register value 64k bytes of 
memory can be addressed through manipulation of the pointer 


register alone. The 64k byte memory spaces formed can be 


discrete or can overlap cn boundaries that apo milii o) ٦ 
16 bytes, 3epending on segment register Pn ٦ 

The i1S8C8€6/12 provides serial 1/9 tBrousm an Pi rna 
62514 USART, parallel I/O through an 11151 82554 PPI Saga 
broad range of interrupt control through the INTEL 2588 
>. MCORTEX operates using interrupt = 6ٹ‎ interrupt is 
senerated vie output to parallel port В, %as 221020564 1 
Perry- [Refa 5: ро, 65 رر‎ -:[ሮ Both the hardware and 


software implementations are exactly as presented by Perry. 


p. ٣٣ ۶ھ‎ ٘ 65+ 

A copy of MCOPTEX resides im each  $rocessorsg OE 
memory and is a distributed Dart ef the address space +٤ 
each local process. Additionally, GLOBAL memory 15 
accessible to 6۳ to facilitate 181 ٣٥۶7 
synchronization. A system interrupt under ٣0 ٔ ٔ ٢ 
ir conjunction with interrupt flags maintained in GLOBAL 
memory, provides. communication initiation between real 
processors. Upon receiving an interrupt, Each processor 
checks its flag in GLOBAL memory to determine کیب‎ 
interrupt is intended for a process in its local 0 Zus 
rot, the process executing at the time of the 3 ۶٣ 
تب‎ ss Otherwise a call is made to the MCORTEX 
scheduler and the highest priority ready process 15 given 
control of the CPU. For communication between processes in 
a common Local memory, no interrupt lS 7٦ a call to 


the scheduler is made directly. 
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Access to MCORTEX is through the supervisor at the 
outermost ot the MOOTENFPX Tour level Structure 
discussed by Klinefelter (Ref. 2: pp. 44-46]. Due to 
incompatible parameter passing implementations in PL/M-86, 
and in PL/I-26, code allowing PL/I-86 access to the MCORTEX 
Supervisor has been developed. Press iS discussed fully in 
Caapter V. 

sS 2525104586 In each local memory, if required, Ys the 
CP/M-86 operating system. IE Dis configuration they full 
range of CP/M utilities, [Ref. €] and [Ref. 7], is available 
to the user. Additionally, development of user processes can 
make use of any of the broad scope of commercially available 
011 00515 compatible with CP/M-SE. Figure 2 gives a 
representation of the locations of the system code. The 
ie ram includes the location of DDT-86 as required for a 
debugging session. Also depicted are the locations of the 
MCORTEX / MXTFACF loaders. During load, loader memory is 
کہ‎ reserved, ard care must be taken to ensure that a CMD 
modules cade or data section does not overwrite it. |1 ء1111‎ 
permissible, however, to include this memory as part of a 
irre = Stack Or free space; ince these structures are 
developed at module runtime when loader functions have been 
completed. 
የጠመመ] ፣ تت‎ 5 

User processes may be located in areas indicated in 


Figure 2. Additionally, if CP/M-86 utilities are not 
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FIG. <> MEMORY ALLOCATION 


required, memory reserved for CP/M-86 may hold user 
processes. 

Descriptions of processes in memory are provided to 
ETS thrugh""CREATESPROO NE RE function 55 
We process a unioue identification number, priority, stack 
(SS and SP registers), next execution address :CS and IP 
registers), data segment (DS register), and extra segment 
(S register). MCORTEX establishes the process initial 
context SINE oO ኮብጋጠርህን፣ to, create a virtual 
Mmocessor. The virtual processor exists as a combination of 
data, toth in GLOBAL memory, and in each process stack. When 
executing, the virtual processor becomes identical with the 
A processor state. Relinavishing the CPU forces the 
virtual processor again into GLOBAL memory and the process 
s Back. 

۳۰٣٣٢٠ а effort hus been made to accommodate processes 
created under PL/I-86 and linked using LINK86. The internal 
00 pectume of such processes requires some consideration. 
LINKSE  concatenates all PL/I-86 code segments into one 
segment. The same is done with data segments. Thus, PL/I- 
ኃይ processes consist of a series of contizuous code segments 
followed by a series of contiguous data segments. 
Additionally, at run time PL/I-86 routines create a stack 
following the data area, and a free space following the 
stack. The resulting process configuration is shown in 


Figure 3. 
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٢6۰ USER PROCEDURE NUMBER 1‏ یا 
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PL/1-86 RUNTIME MODULE NUMBER m 
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USER DATA AREA NUMBER n 
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ዙ፦ ٢ > تت‎ 171-935 MODUL ES 


Access to all data areas resulting from a single link, 
is referenced to a common data segment. Stack pointers are 
referenced to the stack segmert register, and free space 
pointers to the extra segment register. Additionally, some 


PL/I-86 runtime routines assume the contents of all three 


[3 


segment registers (DS, SS, S) are identical. This 
assumption disallows process stacks with unique Stack 
٣۰۰-٠٠٦۹ sand was the motivation for modifications to 
MCCRTEX discussed. in Chapter Il. For the demonstration 
ቤቢ ከበር  51.CMDb.and D2.6MD (Appendix E) PL/I-86 generated a 
default stack of size 40081 bytes. This area was subdivided 
to provide a 129H byte process stack arc a ZECH system stack 
in the case of D1.CMD, and two 1204 byte process stacks and 
a 1028 byte system stack in the case of D2.CMD. The 
Ae entation for ..PL/I-86 [Ref. 8 : p. 2.91 describes 
mechanisms incorporated in the PROCEDURE statement to 
specify the size of the runtime stack. If these mechanisms 
function as described, all process stacks can be contained 
within the area allocated to the runtime stack. Otherwise 
process stacks can be constructed following the free space. 
This area would ve unprotected by normal CP/M CMD file 
memory management functions, and its use would require extra 
care. 

The MCORTEX CREATESPROC parameters include the absolute 
location of process start, stacx, and data. For this reason 


it is advantageous to locate processes absolutely when 
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11 1 12 LINX86 providés su¢h an optYon= rer. & : TESI 
however, the ABSOLUTE option is applicattle to the е п ህን 
file created and cannot te used 156015611 0055 ке TN (٢٢ 
contiguously in memory. Also, experience has shown that the 
required code segment address must be placed in the data“ s 
ABSOLUTE declaratio: Further, the code segment ABSOLUTE 
declaration must hold an address larger than the sum of the 
Value placed in the data ABSOLUTE declaration and the size 
of the data segment. This value seems to have no effect on 
the location of the file but, too small a value will cause 
an error when the file is loaded. see Appendix F for 
examples of link option files that produce correct results. 
MCORTFX processes nay be linked together as PL/I-35 
procedures allowing sharing of PL/I-86 runtime routines or 
may be linxed individually. Separate processes reouire more 
memory due to replication of PL/I-86 support Trolls 
however, great care is required with shared ۳01117 لر‎ 
PL/I-86 runtime routines are Ee Further, OPEN 
ሮይ subroutines are neither reentrant nor replicateable. I/0 
functions, therefore, must be viewed as Shared resources and 


access to tmem strictty control Meds 


IV. MCORTEX LOADER 


qme =- qm eo መመመ -ሙ- --። ።፦ بیو‎ —— 


AEUMEORETOPS / KORE.TRC 

During development the MCOPTEX executive was assigned to 
the file KORE and was accessible through the INTELLEC MDS 
system. This file contained all the multi-processor 
jperating system functions, the initial GLOBAL memory, the 
Supervisor, the interrupt vector, ard various low level 
ይዜ ከ ከከከ Oops not accessible to the user. To execute MCORTEX it 
was necessary to download KORE and user processes to the 
target system, disconnect the transfer catle, connect the 
target system terminals, and pass control to KORE on each 
processor. See (Ref. 2: Apoendix A, B] fora complete 
description of the process. The KORE.OPS and KORE.TAC files 
loaded by the MCORTEX and MKTRACF loaders respectively, are 
denied from the original KORE file with changes as 
discussed in Chapter II. Additional changes were made to 
compact the KORE.OPS file, and to relocate the INITSMOD for 
Simpler, more CP/M-86 compatible loading of user processes. 
Appendix A details the procedure used to produce KORE.OPS 
Snax One.TRC from KORE: Further discussion will use the 
terms KOZE and MCORTEX to mean either KORE.OPS or KORE.TEC 
and پر‎ ۱ or MXTRACE respectively. When tnis 


ዜ ንህ.ቲ.ቲቢ፡፡  ቭሜ ሜችጮሜጮስጨመ COE: ROL hola, the differences will be noted. 
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Currently the 50025515 environment can we ها‎ 
under the CP/M=86"00ene bee oo En Control is then pass 
to MCORTEX automatically, and user processes are creeted ۳ 


the user initialization module. Control can be passed badi 


to the CP/N-£&5 operating system ii conl icale. 


B. “СХТ "۵۴ 
Establishment o f the 54008197 ( 6720 throug 
invocation of ‘ORE as a commanc file® 15 not لر ه715 511د25۵1‎ 


several reasons. First, interpretation of CMD fils eos 
assures each CMD file to be cortiguously constructed. KORE 
] S nul. Second, KORE memory requirements include MM 


interrupt vector. The C?/M-SS memory management system does 
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ot ellow loading of command files inato the interript "NEG 
space. Tpird, the date segment for the initialize TPE 
modvle deverds uron the etount of executable code 0۳ھ‎ 
ty alí processes linked with the module end is not ٦ 


The data segment register initia! value must be 2205855858 ٢٧٢ ف‎ 


KORE after processes are loeced. Fourth, КОК ITC ENER 
GLOBAL memory, which snouid te loaded only once, wil] ЖОМЕ 


must be loaded into each Barocessors local 77 An 


< + 
x 
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additional consideration is the simplicitý aña Tlerni d CIEE: 


(D 
л 


gained when KORE and user processes are loaded via the Same 


mechanism to produces the ™ 


c 


ОТЕ environment. 


111 ሱ፡፡ ፡ ፡ ፡፡ CY THE MCORTEX LCADER 

ከ. ”። ewer 15 an Executable file wnier the CP/N-86 
meer avine system. "Invocation otf MCORTEX without KCRE.OPS on 
Daerou 10176 results in ar error message and return to 
СР/М-а6. MXTRACE reauires XORE.TRC. The loader announces 
EIUS On Tine, and requests an entry to indicate 
whether or not GLOBAL memory should te loaded. only Pre 
8 ۲ processor activated should load GLOBAL memory. 
Subseauent loads of GLOBAL memory would destroy data needed 
mye erectting processors. fre wo initial load of GLOBAL 
memory is made tne results are unpredictable. 

KORE is immediately loaded with or without GLOBAL memory 
as directed. mme load is accomplished using CP/M-£€ 
በክ፡ሽ፡፡ out does not use the CMD load utility. Instead, 
KORE is read in and positioned block at a time as required. 
Ment erru pt vector is not maintained as a part of the KORE 
files, but is generated within the loeder itself with moves 
115-1111205 loader data memory to the interrupt vector 
Space. 

KORE load is followed by a request for a process file 
name. Tre loader expects at least one file name to ከፎ 
entered, and results are unpredictable if one is not. User 
processes are loaded using the CP/M-86 CMD load utility, and 
user processes must be CMD files. The entire file name must 
be entered including the three letter extension. AT E Y 


loading the first and subseouert user files, the loader 
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requests another file name. To exit user process loading, a 
return with no preceding character should be entered. Tne 
last file entered must contain the initialization module Ss 
the data segment register value of this file is determined 
and passed to KORE. 

Completion of user process loading causes control 56 لرل‎ 
passed to MCORTEX. MCORTEX initializations are performed, 
including creation of the IDLE and INIT processes (also 
MONITOR with MXTRACE), and the user initialization process 
is entered. Operation after this point is determined by XB 
user processes. An ADVANC® on the initialization event 
count FF by any process will halt all processors, 
returninz them to CP/M 26 ال سب‎ The demonstration 
programs in Appendix E end with a PREEMPT call to the لل‎ 
process. This is only to demonstrate the operation of 
PREEMPT and, in fact, due to multiple declarations of se 
INIT process causes only the first processor activated to 


return to CP/M-86 control. 


OD 
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A TER OUPERVISOR 

KORE is written in PL/M-86, and requires calls made to 
the supervisor to meet PL/M-88 parameter passing 
corventions. Further, Une suvervisor requires four 
derameters with every call regardless of tne functior 
1010161 . To meet parameter passing reauiremenrnts, and to 
hide details of the supervisor implementation, a trarslation 
mechanism between user calls and the sunervisor is required. 

Tre first parameter expected by the supervisor is a byte 
[were indicating the function required. wollowine the 
function code should be another byte, a word anda pointer. 
The formal varameters these actual varameters represent are 
mus cerent for diíferent function calds, and in some cases 
the values passed are not used at all. The supervisor uses 
the function code to determine which parameters are 
applicable, and simply ignores tne rest. It is inconvenient 
and unnecessary for the user te provide unneeded parameters 
or to remember which function codes belong to which 
Puce ns. 

Two files (see Appendix D) are provided to mitigate 
feet erences between simple user Calls and suvervisor 
requirements. The file GATEWAY .PLI should te ZINCLUDE'd in 


all programs making calls on MCORTEX functions. It declares 


SE 


the MCORTEX functions as ENTZY values ፡፡ ዉህ፡፡፡፡፡፡፡ UL ክክ. 
matching the parameters expected ٢٢ در‎ ٢ در ؤ‎ ۲۲۰ Note tnat 
entry declarations reserve memory space for tne parameters 
Speci ٣۳ Łach user process must have seperate memoni cei 
aside for these function calls to avoid concurrency pro r እ 
in ٦٦ 

GATSMCD.ORJ (or GATETRC.OBJ) should be linked with 0M 
user processes. It provides the object code recessarvy لر‎ 
convert user calls to the format expected by tre superr SO 
including addition of function codes, and padding 1ة‎ 
with extraneous varameters. GATEMOP uses no variable data 
segment of its own, and simply makes moves from user am 
areas to the user stacx. Thit ensures that. so long aS sS 
user data areas irvolved are urshared, ሠል ሪጋ ጋህ is reentrant. 

Nete thet all paremeters ir the GATEWAY declarations ere 
A A PL/M hes two unsigned integer data 
types, BITE and WORD, that are used extensively in MCORTEX. 
There are no corresponding data types in PL/I-86, and رال‎ 
and PIT(16) are the closest available substitutes. la 
MCCRTEX processes it js sometimes convenient to add  twe 
FIT iO) nmki o pe e Unfortunately, mathematical computations 
on BIT(16) values are not supported in PL/I-36. This set of 
coniitions necessitated the development of the function 
1dd2EIT16 included ina 17 yn p As the name implies, ረ) 
function adds two BIT(1S) parameters as unsigned integers 


and returns the result as a BIT(186) value. If a carry is 
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Tico be result returned will, of 


E 0 ы ре correct. 


1 የበ... ን. ስ ለቨአ ተ ርን PASSING CONVENTIONS 

Parameters passed in a PL/I-86 procedure call are 
accessed via an array of pointers [Ref. 12: p. 18.1]. The 
ШО tion of the pointer array is provided to called routines 
Phmeueh a pointer in the BX register. USTs register 


bie rection and indexing, pointers to actual varameters are 


Joaqged into system pointer registers. Parameter values can 
then be manipulated as required. Figure 4 15 a 
Ajasrammatical representation of the parameter passing 


ore: het Merit be estatlisned by PL/I-£6 for a call or 
the MCOZSTEX supervisor. 

ED CEIT(16) values returned to user programs by ¡tre 
ረ ከህ) either as a result of a call to ADDZBIT16 or as a 
merry Of  ሻ የ15 to the MCORTEX functions RYAD or TICKET, are 
now rned in tne BX register. This is the convention followed 


ty 2788 based PL/I-86. 


C.  PL/M REENTRANT PARAMETER PASSING 

All MCORTEX PL/M-86 routines are reentrant. The ASMSE 
ከ ከር Interrupts during -execution so that 
TEER 2207 15, 1010. ጨመ issue. Macas tne MCOZTEX 
” ع5 1م‎ ics reentrant. This is the only KORE module 


accessible to user processes. 


DA REGISTER 


FIRST PARAMETER POINTER 


SECOND PARAMETER POINTER 


THIRD PARAMETER POINTER 


FOURTH PARAMETER POINTER 










POINTER PARAMETER 


WORD PARAMETER 








BYTE PARAMETER 


BYTE PARAMETER 


Fic. 4. l itii 
PARAME TER FASS I ONG 


TO 
p 


7 ጅር reentrant  orocesses exoect parameters to be 
EDU te Stack in “the order they appear in the 
procedure declaratior. Fyte Values require two bytes on the 
eee ovan thcusn only one byte contains usable information. 
Paraneters are followed immediately on the stack by tne call 
generated return address. Tre celled process stores the 
callers DS and SP registers on the stack, and establishes 
muc own DS and EP values. Access to parameters is via an 
index referenced to the called process BP value. Figure 5 
is a diagrammatical representation of how a stack ıs 
mT urei following a call to GATESKTEPEE, 

GATEMOD and GATETRC both act as translators of user 
uu. info formats required by the MCORTEX and WATRACE 
supervisors respectively. The nr difference in the two 
rate modules is tne address of GATESYESPFE in their 
Bese ciated@ KORIS. Using the EX register linx to retrieve 
data, they build the stack structure expected by the 
supervisor module, supplying function codes and padding wher 
required. They then make a call on GATESKERPE:, If the 
Galt is Mo READ or TICKFT, space is reserved or the stack 


for the returred value. tire varie ts PCP ed into the BX 


"3 


registe 


Un 


Wetore exiting to the calling process. 

The gate modules provide one additional service. RONE 
functions do not guarantee the integrity of the ES register. 
PL/I-86 in OSTUONS O MAIN) ir tializations, however, 


establishes the ES, SS, and DS registers to be of 12001 


PUSHED 
E 
CALLER 


PUSHED 
EY 
CALLEE 


PRE-CALL 
STACK 


بس مسق 
| 


WORD PARAMETER 
TWO EYTES 


WORDS 







PTR 


POINTER PARAMETER 
FOUR BYTES 





RETURN ADDRESS 
FOUR BYTES 


CALLER DS 
TWO BYTES 


CALLER BF 
TWO BYTES 





E LTG = tw FI RE ENTRANT 
PA RAME TER PASSING 
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value, and some runtime routines expect this relationship tc 


temoralnte ned. TO overcome the consequences of these 
Ecc: the sete modules push the FS register 


onto the stacx on entry, and pop it before return to the 
BEE From the standpoint of user processes, the 


momereeister velue is unchanged during MCORTEX calls. 


1 GENS RETING MCORTEX PEOCESSES USING PL/I-&O 
us C S written in PL/l-26 tecome MCORTEX processes 


КО ШШ execution of CARA TE PROC functions. Bor رد‎ processes, 


(ሰ 


۰۰۰۰٠٠٠٠٠٠۰۰٦ compiled, and linked as PL/I-SE procedure 


9 


= 


eer distinct processes. Each requires tne state of the 
puscessor to be prepared by the MCORTEX executive prior to 
every entry o the process. NEN  8ۃ8‎ 7 74 
transparently when naxing OCR TEX TUDE TOT Paris. 
Procedures in a MCORTEX process can be accessed from within 
1 rocess normally, however, a MCORTEX process musi Te 
emer ed tirovler a MCORTEX function call, and never throueh a 
PL/I-££ procedure call. 51so MCORTEX processes can be linked 
into a single CMD module or car be developed as separate CMD 
modules. In the first case processes may snare common PI/I- 
26 runtime routines as well es CP/M-86 utilities. In the 
second case PL/I-S6 runtime routines are not shared, tut 
Oey! oo lf used. are still shared. 

MOORTEX currently expects an initialization module to be 


located starting at 0439?F. This module is the first user 


process executed, and can be used to create user event 


4 


counts and sequencers, as well as processes: After all 
initializations are performed, an AWATT( FE E4, 2001 22) 


S 


(D 


Show 00098 This puts ell 111 701د1411‎ UTE 


or a common reserved event count thread. An 2DVANCE FS SE 


TA 
KE 


a) 


by any process will return all preressors to CP/M—26 conti ا‎ 
(assuming CP/M-86 is resident locally). 

MCORTEX processes are written as parameterless  PL/I-5e 
070ء٥76‎ Fxecution of GREATS PROC ٠ة ا‎ ሂብ ብ ብፒ 
initialization module establishes a virtual processcr for 
each process, and sets all process states to ready. Ihe 
AyAlT call at the end of initializations forces 8 scheduline 
100 3 ۲۶۷۹ ስ ር ርን The highest voriority virtual processor MAMA 
be granted access to the real processor. Further se@nedu aie 
is controlled by user processes using MCORTEX furctions. 

Parameters required by the CREATE P2O0C function ١4١١٤٣٤١ S 
values unknown to the programmer until after all processes 
have been compiled and linked. This requires that Jazz 
values be [provided for the first compilation and Ainas 
Links should te performed with tae MAP command or HE 
selected, as this provides information relevant RO PE E 


process mieria Ti ions k partial MAP print out for ኮር WEB 


cemonstration process is shown in Table 2. 


CREATE PROC has ٢2 nenas The first two Mama 
precess identification... an EE ruo ር These are 
arbitrary 3IT(2) values assigned by the vrogzrarmer. Four. 


cther parameters, the CS, DS, 55, and ES register va OE 


& 


ab LEO 


۳۰۰۰۰۰۰۰ AE -DITRC-CMD 


Segments 
mene th onto DEO Alien Comb Name Class 
PV ) 09900 0005-2617 ( Pa PUB 57 COTE 
uu. (Q002: 2102-2503) WOrPD PUB DATA DATA 
0021 ) 22602 : 26 04-0654 ( WORD COM ?CONSP DATA 
2213 (ሮሆሯዞፎ : ርፎጀ6-ፀ6ጀኤ ) يربع 0 هيا" ون‎ "5255 6 ገ ል ፐ ፅ 
205 (0000:26F^-0727) WORD COM ?FPR DATA 
202 DAA :07 28-4729) WORD COMP ?CNCCL LATA 
62 9 ) 006 272: 2026-7732( WORD COM ?FILAT DATA 
2082 (O2LP0:2734-273P) WORD COM 7ے‎ DATA 
CALR (@??¢6:¢€72C-2756) WOFD COM 7ه‎ TENA 
2003 (0020:075£E-2754) WORD COM  ?ONCOD DATA 
2025 (8928 :975C-8782) WORD COM 1 DATA 
0028 (002290:27E2-2729) WORD COM SYSPHINT DATA 
Groups Segments 
ARO UP CODE 
DOROUP TATE ?CONSP ?FPRSTK ?FPB 
ONCOL ?FILAT ?FMTS ?ERUFF 
?ONCOD SYSIN SYSPRINT 


meee tor module: INIT 


О (9922:2092-2922) CODE 
0221 (98900:01090-0120) DATA 


map for module: MCDEMO 


@00:0@25-2094) CODE 


mero (2 
(0020:0122-215A) DATA 


2222 
Map Lor module: LOG ON 


(127  (0002:0095-01BBR) CODE 
ከግ ከር GL Be EN DATA 


Nor TOdule:  GATIM/T 


(9090:012C-2288) CODE‏ وہہ 
Cot  (eOCQC:C21C-CZAF) DATA‏ 


can te determined by perfcrmirg ar ezecutable 1cad O هت(‎ 
process CMD 5116 0520527 ን ንድ Values displayed bye DM 
include the CS, ard PS register رر ل2‎ AS menticned 
earlier, it is reouired that the DS, SS, end rS resis R 
values be equal for proper operation of some PL/I-85 runtime 
routines. xcept under special carefully consid eme 
circumstances, programmers should ensure that this is tke 
es se The remaining two perameters are fpoirter values 
Cbtainable from the Ink MMP ۶٦ 

The first section of the MAP file gives a summawy of EN 
cede ard data segments included in the essociated CMD file. 
Several data segments are listed in order of tree 
occurrence in memory, from lowest offset 501١1522556 7 7 
The range of tre last entry gives the hast address لل‎ ٦٣ 
occupied by any datae segment. Higher address offsets STA 
within the memory space of this CMD file are assizned e 
Stack and free space structures by PL/1-86, wit the SVs 
Stack عو‎ free space. Tne S? value reavired by WE 
CREATE PROC function can be obtained by adding the size of 
the stack required to the last offset occupied »y do 17 
another MCOATEX process stack is required, itseSPr cen M 
ottaired by adding its size to the SP of the previo 
process. The system stacx cen be divided as necessary za 
continulne in this manni i? The total number of bytes 
occupied by MCOXTEX process stacxs should not exceed TE 


number of bytes provided by ፻፲, 1=ሮሮርንህ፣ "۹)۹" ہہ‎ sire 


Mes also contains maps of trke 1 Ved aia | 


uus —unwegrnto the CMD file. These mavs 520714258 dat 


a 
o: 


X 


about locations of code and data seements within the larver 


code and data segments summarized in the sezments section. 
The beginning address of each module is given. This offset 
represents the IP value for that varticular module. 

With all varameter values determined, the initializatior 


Drocess must be recomplled, and all processes relinxel. The 


ar 
ያ: 


3 
دا 


SES] tine (MES file can be executed in the MCOm 


ENDO ronment. 
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VI. CONCLUSIONS 


The principal foals of this thesis were met. 7 
has been integrated into a selected environment To provide 
multi-processing and multi-processor capabilities. Assets 
available under the CP/M-£€ ogerating system have been made 
available to MCORTEX processes. Also, development 7 
MCORTEX processes in the high-level language  PL/I-£6 has 
been provided for through reentrant gateway transformations 
between PL/I-86 calling structures and the structures 
expected by the MCORTEX suvervisor. Programs have teen 
written to demonstrate that each of the MCORTEX functions 
can be used from within a Process “Гл ስ፡ ን ስገምን SS Two 
versions of the operating system kernel have been produced. 
One version, found in the KORE.TRC file, retains all 
diagnostic cues of the development version, primitive  I/O 
functions, and the MONITOR. The second version, four d 77 
the KORE.OPS file, has these items removed. 

No testing of the system, except to monitor the proper 
operation ОГ the demonstration prograns, nas been 
accomplished. The demonstration programs have been run 
successfully using two slave SBC's and using the master SBC 
and one slave SFC. The loader program sometimes will not 
accept a file name without the drive DIES. No pattern ze 


this behavior has teen otserved. 
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As noted earlier, neither CP/M-86 nor PL/I-86 runtime 
OMT pese. gre reemtrart. ህህ ፐብ መጋ ጠሃ Section of cole fror 
ከከ ከ ተ jn a Concurrent environment requires care ane 
proper control of access to Shared code. In many instarces 
this can be accomplished through application of MCOHTEF 
functions. When proper sequencing through ۰۶17/1-6 runtime 
routines cannot be guaranteed, processes using shared 
routines must be separated, and multiple links performed. 
دل‎ 01001595 a copy of the runtime routines for each 1٦4 
meee Of modules. Since processes not linked into the seme 
CMD file do not share common data structures, communication 
between the modules becomes more complex. PL/I-86 uses 
een bit Pointers, and has no built ir mechanism to 
transfer date outside the data segment assigned to tne 
lirked module. This deficiency also adversely affects the 
communication through common memory of processes on separate 
اه‎ sS. 

Eutvre research with MCORTEX should investigate the 
problems discussed above. Testing of the system using more 
than two SEC s should be conducted. Investization of the 
relationships between MCORTEX processes Sharing sections of 
PL/I-8€ and CP/M-86 code must be conducted, ard the best 
means of controlling access to shared code determired. If 
"ከር this ا‎ 5280014 be accomplished in a high priority 
system process that is transparent to users. Some convenient 


means must be provided to give processes access to memory 
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outside their assigned data segments. Finally, AEGIS system 
processes and real time input simulation processes should be 


adapted to the MCORTEX environment, and performance 


measurements made. 
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RIMIS А 


meng iro ue ire مر ېسا 6 سن سد‎ ጨመ  ፦ a ጨጨ መ > መመ aw ው መ — Qa G qe w 


i SRE-PCWER-ON ‘CHECKS 

A. SBC configured for C?/M-86 cold boot is in MULTIBUS 
odd slot and no other clock master SEC is installed. 

۲۶۰٠۰٠۰۰۰۰ ن۰‎ 0 016 memory is ПШ ا‎ BUS. 

۰99۲.7 ٠.۱۱٠٠٠٠ 10 550111205, and properly 
۲٣٦٦696120 to REMFX drive. 

pe Pt 150201155558150 e tote used, ensure that 
NES connected to clock master SBC. 

E. 2085106 528 shared memory module is installed. 

Fr. Connect FS232 transfer cable between J2 on SBC, ane 
2409 baud CET port of the MDS system. [events 680016-53 
bU modem switch on it, set it "to null modem. This 
transposes wires 2 and 3. The switch may alternately be 
marked computer to computer and “computer to terminal . 
Set to computer to computer. 

Fromme aan СК Же ጋጋሪ taud TTY Dort of the MDS 
System. Ensure CRT is set to 96029 baud. 

be connected to the SBC after the loading 


is completed, and should have an RS232 cable hooked to t 


y 
ጠ 


serial port. The CRT connection should lead to a flat 25 
wire ribbon and J2 connector so it can eventually be hooxed 


to the SBC*s serial port. 


5C 


II. POVE ON 2۹7 ۶٣ 

Ka Turn the power-on key to ON position at MULTIBUS 
۶+ ۰ 

B. FPress RESET rear power-on key. 

C. If needed apply power to MICROPODTS nama ау 

D. Apply power to REMEX disk system. After system 
settles, put START/STOP switch in START position. roll; m 
a lengthy time-out period, the READY light on the front of 
the RFMEX disk system will illuminate, and the system is 
ready. Alternately, the FSET button on the -.MULTISU SON 
pressed three times, with a small time-out for the system to 
Settle ٭‎ 6 ٦ Following the third button push, sS 
READY оп the front of the REMEX disk system will illuminates 
85 117٣ 

E. Insert the boot disk into drive 3. 

Fo Apply powses ОШ ле о ፡ 

G. Put the Bubble Device RUN/HALT switch to RUN. 

H. -Power up the YDS 11575 ው ር 

I. Power up the MDS terminal. 


J. Turn power-on key to ON at ከስ ከ ጀይ ክክ ሻሻ 


III. BOOT UP MDS 
A. Place disxette with executable modules and SEC861 in 
በ ሞ1ዥ 


E. Push upper part of boot switch in (It will rena i በመይ 


that یپ‎ ٤٦ 


Ce Press reset switch and then release it. 
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ieee hermit light 5*2 lights on the front 
panel, press space bar on the console device. 

E. Reset the boot switch by pushing the lower part of 
me switch: 

F. ISIS-II will announce itself and give the ፦ 


prompt. 


SS LOAD 7 

A. At MDS console, type S3C861<C2> . 

۱ TF “GONTPOL* appears, SBC was not able to set its 
baud rate. Press RESET on MULTIB3US frame and try again. 
| ር. If ‘Bad TMDS connection appears, you will not be 
able to continue. Check connectons. Make sure diskette is 
not write protected. Push RESET at frame. Try again. 

٣۰۰٠٠٠٠٠٠۷٦۶ ٣٠٦ 111 itself and prompt with 

ein جو مر و‎ . . At this point the 
KORE module has been lcaded into the SBC memory, and into 


the shared memory board. 


V. SAVING KORF TO CP/M-8€ FILE 
A. Leaving the SECS861 process active on the “MDS system, 


disconnect the 252352 J2 connector at the SEC, and 


ርን 


ሀሱ ከ ከ 
the terminal prepared earlier. 

Bee At the newly connected terminal type ۰۶۶0 , 
) ٣۲ will LIE SO irs entry. Respond tothe cues tnat 
follow as required until DENSAS up. 


C. Now enter DDT&6. At this point KOR®, CP/M-86, and 


E 


DDT86 all are resident in the SBC Temo av II 6 
shared memory board. 

D. Usirz DDT86 commands, reposition the parts Of 5 ٠٦ 
required so that the code can be "saved ооо ен Deme 
necessary to determine the initial locations of the code is 
fourd in r The DDT86 instructions used ٧۷ (٢ 
current KORE.OPS end ROPE. TEC fi Ves ٦ 
A CO = i 

MBB@:2,DFF,480:0 *** Move, starting at address B36:3, 
DFF bytes of code (main part of KORE) to new start address 
48022, 

MAS9:0,80,560:0 ( *** Move, startine at address 159:9 ® 
bytes of code (initialization module) to new start address 
560:€0 (following main part as moved above}. 

ME794:0,6BF,568:@ *** Move, starting at address ص٦‎ 
GBF bytes of code (GLOBAL memory) to new start address 562:0 
(following initialization module). 

W K ۳ Жжжж Write to the default dee 
file called  KORE.OPS starting at address 48 Q : @ and 
containing 15۸6 کل‎ 
El KOR ST TT 

M439:2,22,C068:0 *** Move, startinz at address 49:00 
bytes of code (initialization module) to new starts 
address C68:@ (following main KORE code). 

MACP:A,1AFF,459:0 *** Move, starting at address AC?:€, 


LAFF bytes of code (main KORE + initialization module) to 
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new starting address 439:7. 

ME794:2,62F,459:1FE20 Dove. Starting at address 
E794:@, 6BF bytes of code (GLOBAL memory) to new Starting 
memeress 45951 520 (following initialiaztion module). 

۳ئ۰٠٣‎ ٦60 “59% Write to the default disk a 
ile теа KORE.TRC Starting at address #8 and 
containing 21C@ bytes. 

Ie main KORE module, the initialization module, 
and GLOBAL memory are located to separate parts of tne SRC 
ihe MCORTEX leader. Diemomobemeused requires that these 
modules be saved into the file in 122 byte blocxs. Further, 
amy Change ir the number of 128 byte blocks occupied by each 


must b= reflected in the MCORTEX loader code. 
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۸2 E 


MCORTEX UNDER DDISG 


- ጨጨጨ መሙ qa q — Tee Q ` omg a ጨጨ መመ ہس_ے‎ 


When troubleshooting MCORTZX processes using рр өс ٢ ٢ 
15 important to realize that DDTE6 breax points zz 
implemented as 5062826 commands written at the locations in 
memory selected as break points. If 'DDT86 MCORTEX is 
executed, the MCORTEX system will te loaded under the 
control cr ppp s If an attempt is made to execute the 
loader code to a break point inside a user module which is 
still to te loaded, DDPTSE installs the breax point command 
as directed, but this command will be overwritten when the 
user code is loaded. The code will execute throush MAS 
intended break point, and the desired result will not be 
aC h TENEI 

To enable break points within user processes, execute 
DDT86€ MCORTEX' as before. Now set a break point inside the 
MCORTEX loader code, but after KORE and the user processes 
have been loaded. The loader will now input KORE and user 
modules as directed, and DDT86 will break inside the loader. 
At this point further break points within KORE and user ogee 
Can be successfully set, and will not be overwritten. 

Trying to use DDTS6 on PL/I-86 code can te very 
confusing as the 8086 code produced is not familiar. Use 


the MAP function of the LINK86 linker to give yourself 
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landmark addresses as you traverse tne code. Mucio. file 
ED v einnipnse"addpesses for each o? your procedures 
and each of the runtime modules provided by Pi/I-86. 
Bar information is found in the MP2 files for KOPY code. 

When tracing code, use a hierarchical search. Use 20 
IECIT uc"t*o ns with break points, or individual Ln ce 
instructions to execute small sections of code at a time. 
Break points should be set just past the next call to be 
executed. When a failure occurs, you will have brackstec 
the possible code causing the error. If tne error iS witkin 
the cell, simply trace into the call one trace step, list 
the code and proceed in the hierarchical manner usei before. 
Moe that you must be mindful of jump instructions in the 
execution path. You may have to trace several bytes of code 
to ensure that the execution path includes the break 
TESS. This procedure will get you to the errant code witk 


the least amount of tracing. 
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AP ENDE C 


MCOBTER ه٣‎ 


መመ ጨመ ፕ መሙ‏ — سم سه وټ መመ‏ س 


This file when assembled produces the MCORTEX loader. 
The loader when irvoked from CP/M-86, gives an indication 
that it is on line, and then asxs if GLOBAL memory ؤ‎ +1. 
loaded. The first CPU entering the  MCOFTEX environmen 
Should load GLOBAL memory, all others should not. The last 
process loaded on each SRC must contain 556 2 1 212111 mE 
routine containing all create process functions. This MMS 
contains code that ls-conditionally  assemoled to ይ 
پر‎ ae, The value of MCORTEX in the code controls Wai 
module is produced, ard the rame of the file produce eee 


be changed py the user. 
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0 3 ۳177 ACE File TEX/TE ር. EO O ES per 84 8 


c x 


This program loads the MCC2TEZX operating system TON s 
disk into the current CP/M environment. The system 7 
memory space is reserved usinz CP/M memory managenent */ 
OG ONS Since INIT TP hOC must be over written by */ 
the user INITIALPROC, the memory it occupies is not SE 
EOS The 0 07٦165۲63060 irto the interrupt D 


ወዌ <ë 9 we -—9 ç <ç. چج یہ‎ wl << <. 
3 ¢ ጁ + 


3t 


3 3 
Marea and into shared memory (ie. GLOBALMODULE) ere in * 
* areas not managed by CP/M end are thus protected from *) 
* user overwrite when using PLI CMD files. Conditional */ 
* assemblies allow assembly of either MCCRTEX or MXTRACE*/ 
* depending or the value assigned to MCORTEK at the (1 
" beginning of the code. Nine such conditicnal و‎ 
= assembly statements are к у. d 
E 


. I لی‎ Ze sl ٠ , የ E 
A A A o AS e e ve se 


DO <ç. 9 40 99 . Y 


DSEG 
ORG 5 
p301% MCORTEX / MXTRACE SELECTION Zinneke SES / 
ا‎ KA Born SFT TO ZERO FOR 
ሴንን ECE, TO ONE FOR 
mae MOOR TeX 


SRK ADDRESS CONSTANTS X23 25% RK SE REE 2 HE OK ae ЖОК к эн Ж BK BK OE NE ЖК Жл BE E ж ЖОК / 


FCE EQU @@5CE жюк FILE CONTROL 
FCB NAME EQU 37 po BLOCK 

FCR EXTENT EQU ageet 

FCB CR EQU 828 

INT ADD CS FOU 9118 sak INTERRUPT CODE 
INTRPT OFFSET EQU 9٦331 sak SEGMENT AND 

IF MCORTEX 

INTRPT CS EQU 8 ; xx% VECTOR 

ELSE 

INTPPT CS EQU 825 HHHH 1 ፳##8#፳ ረ--፦- 
ENDIF 


$*** PURE NUMBER CONSTANTS Ell cc E E ر‎ 


EICHTE_K TOU 78 

IF MCORTEX 

NUM KORE BLOCKS EQU 078 

ELSE 

NUM KORE BLOCKS 7900 78 #### 2 ###፳፳ ረ--፦- 
ENDIF 

ASCII 2 EQU “@ 

ASCII 9 EQU “9” 
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EQU “A”‏ "۳ ۶ھ 

Fl 77‏ 7ھ 

COLON OU 0 

SPACE EQU ^ 

PERIOD E ¿ed 

CR EQU @Q@DH 

LF EQU Q@QAR 

‚== CONTPOL TREINSFER CONSTANTS BAK SRE OE gek ek Ve ee bessser 
IF MCORTEX 

KORE SP EQU @@82H 

KORE SS VAL EQU 20788 

KORE DS VAL EQU 67 

ELSE 

KORE SP FOU @@FFE j;#### 3 ریہ‎ (-—---- 
KORE SS VAL EQU 588  ###፳ 4 #፳#፻ <----- 
KORE DS VAL EQU 9600۵181 ;ё### 5 #### <----- 


ENDIF 


: CP/M FUNCTION CONSTANTS كز‎ pe Skok aE OK Ae of a Be acai ae ae ak af a alee ak ak / 


Se whe ates - ያወ 4 + t Ae اا سا رال د‎ feat የ d tu "ሠ ' 7 la را دله ده‎ a! 1 ۶ 
سن‎ MESSAGES HE ጓ፥ ጓ። ኣ። ጓ፡ 3 e پد‎ EAE OE AE AE AE HE NEE AE AE AAS ICES AE AS IK AS IS DEE شس شش‎ IE OS HE DE FS EA A / 


CPM BDOS CALL EQU 224 

SYSTEM RESET 7010 7 
CONSOLE OUTPUT EQU 76 
FEAD EQU 0202H 
PRINT STRING EQU 0209 
OPEN FILE FOU 200711 
PEAD SEQUENTIAL EQU 2214E 
SET_ DMA OFFSPT EQU 7 


zQU 3055H 
БОП @2358H 
EQU 47 
EQU - 7 
EQU 0 16 


SET DMA BASE 
ALLOC MEM ABS 
PREF ALL MEM 
PROGRAM LOAD 
NOT FOUND 


9 


DIS 
RB 16 


IN_ STRING 


NO FILE “MSG DR KORE NOT ON DEFAULT DRIVES” 
NO_IN_FILE MSG DB “INPUT FILE NOT CN DESIGNATED DRIVES” 
NO MEMORY MSG DR “UNABLE TO ALLOCATE MEMORY SPACE FOR” 
DB “ MCORTESQ j 
FILE FOzM FRE MSG DB “INCORRECT FILE FORMAT  ۔.0‎ 061 


START MSG DP 'MCORTEX SYSTEM LOADER *** ON LINES” 
D NAME MSC D? CR,LF,LF, ENTE PROCESSOR FILE NAMES 00٤ 
D 


pr 


ke ہام‎ xí ate ate ےر په رل راه لے‎ ve 
AF AS TAS AS AS AS aR AS FS 7 


ADR 3)5 3,5 AS HE >< > / 


ws ale yiz * 
م‎ e Ae A> Ae 7 
چا‎ x< >; " 
f 0 Г > Se 2 7 


፳፡‏ کپ کچھ 


GLOBAL _O_MSG DF CR2,LF,LF, “LOAD GLOBAL MEMORY% 7ج0‎ 
682 MSG DR “"Y TO LOAD, "RETURN" TO SKIP’,CA,LF,”! 


[ከእ ቢከ ክብ SS CAUTION “se CAUTION *** CAUTION 
Teo olwvovinestive limes of code should not 
separated as this program assumes they will 
found in the order shown. The code 15 used 


At 
۰ 


a ATTON VARTA PLES یدمه‎ ት የጭ ኣዚኣ 


Cou LON ma 


* memory allocation and as a tointer to KORF. 
id CAUTION EE CLUTITON RS 


e0 A € we we 99 يی‎ 


GHUTION 76 


KORE START DW 7 pook CAUTION 
IF MCORTEX 

KORE 7 DW @BBGH px CAUTION 
TLSE 

۲68701 BASF DW @AC@RH HHHH G #፡#፳፳ ረ-፦--- 
ENDIF 

KORE FOU DWORD PTR KOPE START 3*** CAUTION 
IF MCORTEX 

ZORF1_ LENGTH DW 17 pe CAUTION 
FLSE 

۴0371 7 DW 21COH ###ኗ 7 ##፳## ረ--፦--፦= 
ENDIF 

KORE1 M EXT DR © Sex CAUTION 
IF MCCRTEX 

KORE NAME D3 “KORE OPS” 

ELSE 

KORE NAME ከ፻ 7 TRC’ و د‎ <-- 
ENDIF 

10282 5 DW CE7O4E ;i*** GLOBAL MEMORY 
INTERRUPT VECTOR DW INTRPT OFFSET, INTRPT CS 

INT VECTOF ADD DW INT 4DD CS 

INIT OFFSET DW 00008 3*** INITIALIZATION 

INIT BASE DW 74598 1*”* ROUTINE PARAMETERS 

IF MCORTEX 

INIT DS SEG DW OCSaH 3% TOR DYNAMIC ASSIGNMENT 
ELSF 

INIT_DS_SEG DW @cseH HHHH 9 سے ورس‎ 
ENDIF 

INIT 5 7 DW ۸06885 ۱۳۶ WHEN USER INITIALIZATICN 
INIT IP OFFSET DY 9O74H 3*** IS INDICATED 


gc CONT=0L TRANSFER VARIABLFS DE AE EAE BS FE DE DE AE Ae AEE OE AK ARS BEE OE See UO / 


DW KORE SS VAL 


KORE DS VAL 
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DN 


ZORE SS 
KORE DS 


ate ate عاو‎ ale als al ate ale s'e ale ale a's Ké ساد‎ wie ak ate x< سآ‎ s‘¢ 
A IA IA IA A IA IA AA ጭ #7,* ويس‎ $9 AS rr ىم‎ e EA 7” * 


LOADED 


9 
ፈ 


3 


£C / 


Lu 


ጭ 


al 2 
^ 


CONTINUs 
КЕРЕШ 


gore CP/M PARAM ከ ም 
sae CP/M PAT ال‎ 
mee OPEN FILE 

nv FILE FOUND? 
AA AE FOUND! 
መ ን INDICATE 


¿EC ZEN 


ች 3,፡ 2ዶ225 235 252867. 7 


CONT INGE 


ale 2ረ ate 2: a! 4 
>œ کے‎ ውክ 4 -,* 


H ( 1 ‘ ` 
ese segetes تح کا‎ 


e ale ate als 
sa X r> 


a ale ste a ste ste ste si: ”ፐ 
a ry" 5| و‎ e “` Pi SAS -- 


SC2EEN CONTROL & LOG ON 
ESSAGES 


** INITIALIZA TON 


Js «to Le x al. 5. ale se wl e ate ute al, al ates راه‎ 
ew enz ar ` Zus qe ^^ *( ار‎ „ү مه ~ > ,4“ نس‎ Py 


¿SK IF GLOBAL TO BE 
GET FUFF=R LOCATION 
بارس‎ E 
GET INDICATE: 


MOVE LIH ٣٣ 
POLNE TO KOZA NAME 
PON TETO FOBENAMI 


GIE CEARAO 
تپ‎ “ )ٔ ٣٦ 


ON DEFAULT DISK AREN efe ie بې ې‎ He moe a 


SCART WITE 


መ 
ኑና 
ፊ 


whe ats ale “ረ ve alo ساےہ‎ 2: als als ري‎ 


3 


aly als ها راپ‎ 
5 A دي‎ SAS 


33% (D/M PARAMETER 
‚жж FREE ALL MEMORY 
sa CP/M PARAMETER 
"es CP/M PARAMETER 
تم‎ ALLOCATE MEMORY 
, MEMORY AVAILABLE? 
se MEMORY AVAILABLE! 


D 
هم‎ 


wig alo ale ats a? 
S MONI 11 fy dla t mna 
نہ بط‎ — } 


LOAD GLOBAL INDICATOR 


we ale at: ats 
کړه کپس - پخ‎ S AS 


we ats عاو‎ 


ገ ሠ START 1. 


MCORTEX LOADFR CSEG 


ats ale ملب‎ 
Zus oo رې‎ 


CLA SCREEN 


СТ, ; 
MCOET?X LOAD ; 


CALL 


z x< >£ 


M 


CALL CLR 301 ‚ жоок 
CLE ‚жож? 
PU ሺ. ILL 


QUK 


GET 


eya کچھ‎ 


CALL IN GLORAL TI 


MOV DX, OFFESE IN STRING ٦ 
MCV CL, READ و‎ Ae 
]. 07 0 بعد بت‎ 
sx GENERATE KORE FILE 


GEN KORE FCB: 


MOV 3X,1¢ م‎ 
MOV SI,OFF SBR KOR MNA ID SS 
MOV DI,FC* NAME ; ox 
MOV KORE: 

MCV AL, ([SI+BX] . QE 
MOV IDI+EX],AL y ات‎ 


0 4 

JGE MOV KOEF® 

qx OPEN KORE.OPS FILF 
OF EM KO Ei 

۸۶ ٢ PILE 
MOV DXF Gs 

CN CEM Sees CALL 
CMP AE, NOT FOUND 
JNE PROCESS KORE 
JMP NO FILE 

۶ ۴ ۶9۶۳ی‎ 
“CY DM 

MOV PCE Grail ۶ ٦٣ 


«ls 


(sg RESERVE MEMORY 07 


wen) 
INT 
MOV 
MOV 
INT 
CHE 
JNE 


CL, FREE ALL MEM 

CPM BDOS CALL 
CL,ALLOC MEM ABS 
DX,OFFSET KORF1 BASE 
CPM BDOS CELL 

AL, NOT FOUND 

LOAD MCORT?X 


٣ ۱0 لال‎ ЕЕРОР 


ts ate ate st ate ale ale ats ale ale را‎ ut, y. al ats ate al, yt ele ~'e s s‘¢ ړل را‎ ats =< 
25 كوت درك كوت‎ үз 4м 25 55% كرض کد 226 ہے کرے‎ Сүз كرس‎ A 1* #,* ቃ,* ወ1* #*4 i 


7٦‏ 2 0 .551 117 د 
EM BLOGS ۹ ٥٣‏ 


R/M PARAMETER 

CP/M PARAMETER 

soe TIRES 756 

5451 DESTINATICN SEGMENT 
SET BYTE COUNT 

SET SOURCE OF eSat 

ከ ከከ ንሙ BITES 

እከ ሰ ንቱ ዞጋ TO MOVE 

LT TOT DONE, PO AGAIN 


#፳ጽ ጁ ጁ ጁ፳ ጁ ጁ‏ عد عد ود 
ሩ ድ A A‏ بر 
3t X ox‏ 


x 
+4 #3 


ا ٤ڑ‏ 


ч+Ф чә Фф we @O we پچ صا‎ Be BO 
X xXx 
` 
% + 


` 
+ 


‚кож 


NO MEMORY SLLOC 


DonD MOONLVX CODE 


JMP 


مر کے `- 
Zus ds‏ ہے 


LOAD MCORTEX: 


DE. 

22,۷0۳ ۴37 65 
033 2 

DX, FOR 

CL,READ SECUENTIAL 
CPM BDOS CALL 
۶8,70881 7 

® 11715 ሺ 

SI,CX 

40 ፲ 5 ፻ 

BP 

MOVE_KORE_ LOOP 


LOAD INITIALIZATION MODULE Area eech d dee ee eege he ak AE RAK Be / 


SET DST. OFFSET 
CP/M PA-AMETEZ 
CP/M PARAMETER 


ADIN IZE 65 


УО NAT LON SEGMENT‏ اناد 


EE DLE COUNT 


EI OUNCE OFFSET 
"٠٣۷۶۰۸6 89 


t ^ «t ^ s ' a Le - - ” Lë په‎ al - ‘ae at Vn ate uy ale al 
AAE AK PE KERE RE RE RE SNERRE ENEE e E 2 2 ЕЖЕ / 


,""** SEOULD GLOS8L BE LOADED? 
S NR NOT, SKIP LOXD 

КЕ 1. OFFSET 

۸۰۰۰۰۰ M PARAMETER 

Sg OT PARAMETERS 

A LES BYTES 

jo ٔ ٘ٔ ٔ 0 0 TATA? 

NK uC ON‏ ۳6۴ر ا ل و 
E SET DESTINATICN SEGMENT‏ 
SA PYTE COUNT‏ 

Jo eon. OFFS 2T 

MOE 128 BYTES 

sex ፲፻ NOT DONE, DO AGAIN 


DI, INIT OFFSET 

DX, FCE 

CL, RIAD SEQUENTIAL 
CPM_BDOS CALL 
ES,INIT BASE 
CX,EIGETE K 

01 X 

MOVSB 


LOAD GLOBAL MEMORY 


UNES TENGI E 
ከ፣፡፣ መክ 1” 1 
DI, 
GLOBAL LOOP: 
DX,FCR 
Ch, 2EAD OS 71 
8 ۶)۹ ٤٣ 
AL,AL 
INSTALL INTEPPUPT 
1 20822205 7 
CX,EIGETE К 
pr, Cx 
MOVSE 
MOVE GLCBAL LOOP 


اد اد پچ مد مز ماد ١د‏ بد اعد مدع INITIALIZE INTERRUPT VECTOR iise‏ 


* SET DESTINATION SEGMENT 


SNAM DEST. OFFSET 
OFFSET 


© 
, 
A © 
ç та 
, 


الو sde‏ 
کړه کم 


une 


; kk SRC. 
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ALL_INTEP 2UPT: 
BS TINT VECTOR ADD 
DI,e 


MOV 
MOV 
mo VE 
MOV 
RV 
INT 
SOV 
MOV 
MOV 
ا‎ 
DEC 
JNZ 
; жож 
MOV 
po y 
MOV 
INT 
MOV 
MOV 
MOV 
REP 


; NONO 


ШЕР 
JZ I 
MOV 
MOVE 
EIS 
MOV 
INT 
TEST 
JNZ 
MOV 
MOV 
MOV 
SCAS 
JMP 


pF FER 


INST 
MO 
MO V 


ከከ ከ ol OP ESET INTERRUPT VECTOR 








0 ۶ی‎ po AA 
PER  MOVS ٢ ت٦‎ 6S V E OTS 


e 2፳ ale ale MA we اج‎ ale راپ‎ ate wlio ale ቃታ 5 ale ale a's ws ate 52 راي رې راپ راپ‎ "ጋ مركي‎ s'e ale عاو‎ ፍረ wo «lo «o slo ale ale de al 
9 mnt R E A N A N | | IL IA AS IA IA IA IA A IA LIA IA IA IA IEA IA IAN AI ارس کړس‎ Is oh a ሠ(* HS 2 کرت که کے کاو‎ 
Wei . 4 a ; ل ه‎ 


READ M NSMEE 

CALL PROCESSOR NAME ; "v MsG TOSDNOUT £ FILZ NE 95 
MOV DX,OFFSET IN STRING QU TX <-- BUFFER LOCATION 
MOY CL,EEAD ‚ж=ж CDM 28 2۵77 

INT CPM . 7 ox GT JONES 


RR SET FCE DERIVE DESIGNATION AEE ENE NE E E E E E nece ue seo eese E 


CMP IN STRINS 41,0. "۹۸۰۹۷۰ 4 ۷ 7 
JE EXIT ROUTINE ٤8 ;*** TF NO, ٦١٦٦+ LOAD INDICATE 


> 1 ns LOADED FILE WAS NOT INITIA PI BE 
MOV DI,2 sxxx SET DESTINATION TND للت لل‎ 

CMP IN STRINS+3,COLON ,*** 15 DRIVESOE SECRE ብ. 

JE 85 ات‎ 1 7 qa TF TES, PUT DARIA: 

MOV FCB[DI],DI see SET DEFAULT DRIVE 

p POSIT 1 STPINCT IS ٦٣‏ © عم 2 س 


JS FORM_FCB 


SET_DRIVE: | 
MOV AL,IN_STEING+2 ;*** GET DRIVE LETTER 


AND 5 ;*** CONVERT TO UPPER CAS? 

SUB AL,4QE seek CONVERT TC A BINARY NUMBER 

MOV FCB[DI],4L pe SET DELVE 

AND AL,OFOH sex LIMIT LINE DRIVE TO A TIROUGH O 
TEST AL,AL 

፲ዛ2 INPUT ERRO? B 

MOV SI,4 se STH POSIT IN_STHING IS 1ST LETTE? 


park INITIALIZE FILE CONTROL BLOCK seien tiec ن‫(‎ 


FORM FCB; 

MON EX 0 ‚жэ FILL FCB NAME WITH SPS GR 
MOV AL,SPACE ፣ 

FILL SAT 


MOY FCB _NAME[BX],A Ze 
DEC BX ; жж 
JGE FILL SPACES ; жж» 


MOV FCB CR[DI],DI tk NEW FILE CURRENT RECORD IS ZERO 
MOV FCB_EXTENT[DI],DI ٭٭٭ و‎ NEW FILE CURRENT EXTENT IS ZEAO 


SOK INSTALL FILE CONTROL RLOCK NAME Sai خد بد‎ deed de ee ee e / 
NAME LOOP: 
MOV AL, IN_STRING{SI] 5 د‎ 7٤ 


6 


ንእ ከ TYPE? 
۸ +7777 
EDOUST 8 ٔ8 9 ,, ۹۶ 


* CHECK FOR LETTER OR NUMBER 


MOVEMGCHARACTER INIO FCB 
TS 08 5د‎ LAST CHARACT 237? 


re 
NEXT 


ive, LOAD THs 
1 1 ADJUST FOR 


KEE 
AND GO AGAIN 
DET TO ELIT ROUTINE 


IDET TO INPUT e250 


دا ہہ 
AND CONTINUE‏ * 


A 
2 
à 


- *"» = < è 

38 38 3 3 

A ode #ዙ 2: 
t ` 


$c 3E ግየ 
ዥዙዣ ጁቬ ቶ 
+ф د‎ 


و جه 0 oe $60 soe we‏ 9 © وټ 
X 3e 4t toit‏ 

ioM ጃ 3t 3 

HA HA 


s ACK 


(MID MAN 007 
ل‎ FCB CONT 1 
1 تت تت‎ 218 

times FCB CONT 2 
uM CONT 1: 


TL VALID INPUT 
IST AX, AX 

JE INPUT ERROR 3 
MOV FCS _N&ME[DI] , AL 
0  ,1 

CMP IN STRING+1,AL 
JB OPEN PROCESSOR 
| DI 

HORI CONT _ 2: 

HW SI 

JMP NAME LOCP 


EXIT POUTINF 3: 
IMP EXIT ROUTINE 
INPUT E2BRCR B: 
JMPF INPUT_FFROF 


@ we ale ate - m aly 5 2: ate ale ale Je te ato ملو متو‎ ats de ale ale راي‎ e as ato wie sie ale ale رل رل مثو‎ ale ole 
4 
ግ* " es К N 2 bah ¿e ya ey oN 70 Ss ^ Ld hd ey > Ld hd L “ç` دي‎ Ore Ss “ነ * e" *“ Ed hd ዎ,5 ዎቃ. e, „> e£ ^S ГЪ 
, 3 + * l2 


GE TT TAET 
6 ۶‪ھئ‎ 6+۴ 


TEL FILE‏ ات 

WAS FILE ON DISK 

| eo, Ше Ол} ТЕЕ TILE 
IF NO, STWeNAL 7 


ex CP/M PARAMETER 


CP/M PARAMETER 
LOAD THEIL 
SAVE ۱٢٢١او‎ ۳٦ 
GET NEXT PROCESSOR 


ao ule ale ats ale ate ate als als af oll ale ale ols le Ж a'o nte sie ate f 


eer ON = CAUTION መመ CAUTION *F* CAUTION ORRIO / 
ٹکٹ‎ 6٣۱۷۹۹٥۸۳۷۱۱9 7000۳ 0م‎ 0007807۲ upon Input of PL/I رس‎ 
,"U«* CMD file with CS heeder first and data header unn f 
FS second. This is the normal situation and should ***/ 
mb cause no difficulty. Also this code is hishly о 
1 dependent upon the location of the initialization ***/ 
module stack and the location of the DS and IP E 
;,"U** values within that stack. Changes ir stack په‎ om 
‚== location or organization should be reflected here.) 
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OPEN PEOCESSOR: 


MOV DX,FCB 
MOV CL,OPEN FILE 
INT CPM BDOS CALL 
CMP AL, NOT FOUND 
JNZ LOAD PROCESSOR 
JMP NO INPUT FILE 


LOAD PROCESSOR: 

MOV DX,FCB 

MOV CL,P2OGE4M LOAD 
INT CPM EDOS CALL 
PUSH AX 

IMP PEAD A NAME 


ШЕ SET UP TYE INITIALIZATION STACK 


‚эш CAUTION ww ٥۸۸1۱) ۸ه‎ 0٣٢٢ 1) К BS LAE ALI 7 


PXIT ROUTINE: 


MOV BX,INIT 28 7 
“OV ES: [SX “EK 

MOS JE 

MOV EX, INIT IP 8-7 


PCP AX "et RECCVER DATA SEGMENT 
MOY 88, 1ከ47. 95. 586 ፍፍ POINT TO INIT STACK 
*** POINT TO DS ON STACK 
D 


sek INSTALL NEW INI? 
mek SET NEW IP VALUE 
*** POINT TO IP ON STECK 


MOV ES: [2X] ,DX sh INSTALL NEW INI? IP 
VO7 CL,SET ኸሦጳ 825፻ w* CP/M PARAMETER 

MOV DX,AX ee STP BASS PAGE 

INT CPM PDCS CALL "ae SET DM: BASE 

MOV CL,SET_DMA OFFSTT kxk CP/M PARAMETER 


MOV DX,EIGRTE E 
INT CPM 5805 CALL 


wewe we @e wt we wt Be we wt we Be we 


Le T - š whe نہ‎ Sa we we whe ale ale ae a! . ب‎ wi و‎ whe a 
ere TOANSPRS CONTROL TO MCORTEX Next tet و جو بوو:‎ ٤ ا‎ 


MOV ٤٦۶ب‎ Qs KORE 3 0 POINTER 
моу БЕ О kk a CRE هل د‎ ВАШЕ 
“OV 55180386 55 seme KONE STACK 7 
MOV gx, Ds Ss GR DATE STONER 
MOY @S , AF sor Per, ES TO DS 

MOV DS EO DS ‚жез KORE DATA SEG Smi 
JMPF ES:KORE see JUMP TO "CORT UP 


see VALID CESFACTEP FOR FILE NAME CHECK 717و سب مس‎ 


VALIT_INPUT: 
CMP AL JASCII_L sexe IS THE CHARACTER 5 NUMBER 
JB NCT_VALID nn 


CMP AL,ASCII 9 E 

[29 TS 5 مهه‎ 

SND AL) SFE see CONVERT CHARACTER TO UPPER CASE 
CMP AL,ASCII_E жеек TS THD CHARACTER A LETTES 

J8 NOT VALID ; жле 

CMP AL ASCII 2 doxes 

JBE 18 - ۷٤1175 eg 


NOT VALID: 
MOV 2X,€ 
15 ATID: 


E 
x 
A 
<= 
ай, 
+ 4 
0 
T> 
፦ጋ 
trj 
dä 
t-J 
СУ 
FE 
ኑ፲ሥ 
Si زا‎ 
o 
C2 
ኑ-] 
tay 
er 


prp o KK ТТА Т mus KT 

pa = 

٢ ا‎ ነ, “== CH AE GE 

e wo vov, See See ale we we we alte este Ben Nee ماب ياه‎ de neta + lo 22 Dl we se ale ale we ale wie sie wie ale 

; on Aas AP ORT M SSA G 5 ፇሮ ፆሎዶ ዎዶ ጫ* ጫ* “(* ጣጐ ህ“ፅ" یح هر‎ LS IT AS. £36 35 55 5,5 35 كيت‎ yy OS ës er مارت ہے د رص ےے کے مه ده کو مړک که‎ m 
= 


NO "0 ٔٗ ) ۴ 


CALL CIR SCRPZN 
MOV DX,OTFSET NO MEMORY MSC fx PTP TO MSG 


Eus OUTPUT: 


MOV CL,P3INT STRING pre CP/M PARAMETER 

INT CPM 831905 CALL Т SENO CEAR TO CONSOLE 

ESLL CLR SCRZE 

MOV CL, SYSTEM 2ESTT qu CD/M PARAMETER 

MOV DL,2 pea RELEASE MEMORY 

Wiere: 2۳08 CALL sex EXIT TC CP/M 

{жж SCE ETN CONT EOL, ARE RAAT NEED AEA AEA AE OE OE SOE RE RF E E A E RF A EK EEE 


CLR SCREEN: 


MOV CL,CONSOL? OUTPUT xx ISSUE CARPIAGF EETUEN 
MOV DL,CR ቸት 

INT CPM BDOS CALL ; ж 

MOY DI,2CH sexx ISSUE 12 LINE FEEDS 

LINE FEED: 

MOV DL,LF TIL 

MOV CL,CONSOLE OUTPUT ; exo 

INT CPM BDOS CALL ; жо د‎ 

DEC DI o 

JNE LINE FEED pna 

RET 

SEND MSG: 

MOV CL,PRINT STEING ¡aus CP/M PARAMETER 

INT CPM EDOS CALL za PRINT & STRING TO CONSOLE 

ЗЕТ 

n‏ ع EAS HEAT SS HK AE SS SAC SE AS EHS BE AT SE AS AS AS RCA AS MS AS AE‏ كلد كا 6555 የ”‏ | ھ ie NON‏ و 


MCORTEX LOAD: 
MOV DX,CFFSET START MSG 
CALL SEND 3 

RET 


PROCESSOR_NAME: 

MOV DX,OFFSET P_N&ME MSG 
CALL SEND MSG 

RET 


IN GLOB&L: 
MOV DX,OFFSET GLOBAL © MSG 
CALL SEND MSG 

PET 


INPUT_ERROR: 

CALL CLR SCREEN 

MOV DX,OFFSET FILE FORM EPP MSG 
JMP EXIT ERR 
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NO INPUT FILE: 
CALL CLR SCREEN 

MOV DX,OFFSFT NO_IN FILE MSG 
PKIT ERR: 

CALL SEND MSG 

CALL ۷ 

JMP RIAD A NAME 


IND 


o" 





APPENDIX D 


Two files are contained here. ከ ከቢ ቢኤ ቢ trot PLAN codes 
GATEWAY, which must be ZINCLUDZ'd with every user process 
Baouirinz access to MCORTEX. Wee 5503520-15 156 cose which 
provides an interface between the GATEWAY and the ۳٨ 
ENUEnPvisor. The object code obtained from assembly of this 
file must te linked with all user processes to provide 
КОО ОУ у access to MCORTEX functions. Two lines of code 
۲۰۰۰ - .ى.۰-‎ ۲137٦۲1607168117 assembled to produce either GATP2MOD or 


G PAGE, The conditional veriatle is called GAT=MCD. 
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we wees ale de = ss ale ate ale als ale ate ale X4 Se Se = sk لو ا م‎ e 
ey ሚኑ“ aye ° ሜ* er “ግሩ 5 Ps په سا‎ hi - ٣ 


£ z > x x < E RERE RE RERS E REA REDE BE REGE SE SE IEE SE BS A 3 DE EE EE 

SAE NS FI BS AS AE AL ARA AAA AAA a ы‏ كر كر هت REOL AEK DE SE IE AE HE IS IS BE AS NS SE BES‏ كلا 
Wa 34? ፡ SW 1. IAE W.R. ROWE 4 MAR 84 6۴‏ 
/wx======================z== e eee 24‏ 
“sx This section of code 15 810861 as M ይ!- ш‏ 
ZINCLUDE d with MCORTEX ርር 020 ፣ ደ በመን ٦١٦ ж,‏ **/ 
declarations are made for all ۹731121 r We‏ **/ 
n ግ‏ 1ك ق ۸82321116 ۶07 /x functions and‏ 
addition T 1€ bit numbers. Ee‏ ا Sal lowing UD‏ / 
pS BS SSS Tae BS He ote hs AN 2ሎ A A o o ea T T  ይ.,ጠ /‏ 
Os oyo NO e o x= aan‏ هم د کر EE AE SIS SHE BS SNC Sk 3: 532 X 2322 22 3° X2 22 =š ANA As aa‏ 


DECLARE 


advance ENTRY (BIT (8)), 
/* advance (event_count_ id) */ 


await ENTRY (PIT (3). PIT ٢ 
/* await (event count id, awaited value) */ 


create eve ENTRY (BIT (87), 
/* create evc (event count id) */ 


create proc ENTEY (BIT t8), BIT (8), 
BIT ,‚16) Eee oe 
BIT (15), BIG (iG), 11+1 
/* create proc (processor id, processor spr neue "d 
/” stack pointer highest, stack seg, 1 
Ld cole seg, data seg, extra sez) A 


create seq ENTEY (BIT (&)), 


«be 


/* create_ sea (sequence id) */ 


preempt ENTEY (BIT (8)), 
/* preempt (proces oma mma 


read ENTRY (BIT (GJ) ШЕШ КҮС EE 
* read (event count_id) */ 
/* RETURNS curres teeven tc oma cm, 


ticket ENTRY (BIT (8)) EETUENS (BIT (۰ 
/* ticket (seauence id) */ 
/* RETURNS unique ticket ጋ በክር. 

add2bit16 ENTEY (BIT(16), BIT(16)) RETURNS (SIT (eee 
/* add2biti6 ( a 16tit_*, 22512612 121 ا‎ 


JE 
/ 
/* RETURNS a 16bit # + "another. ET y) 


ER 
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, 32 
` ` 


At 


س — 


4 


5 t ፡ ١ ها‎ te is 1 H 's wha ټل‎ ۰ e! واپ‎ ' ' ው ' 
AS AS FR FS SPS zÉ ። ፳። ኣ። ጓ። ጃ፥ ጓ፡ TE RAS ASAE AS AS ASAE FS BS TS AS OK AS ኦዶ ጓ፡ ኣ፡ ጓኣ።። ጁዶ ፳። ጻ። ።። ጻ፥ ጻ፡ ጃ። ጓ፥ ። ጁ፡ ሯ ጃ። ፳። ጻ* ጃ፡ ።ዶ ፡ ጓ። ጻ። ጻ። ጓ፡ OK OO 


ale 
ٰہ ہے‎ 


ne ee کہ ا ن ا ل‎ ve 


په رل ae‏ نس أيه ع فو 


2: PE ou / GATETRC File o Rowe 12 Feb £4 


* This module is given to the user in obj form to link 
with his initial and process modules. Any cnanges to 
user services available from the OS must be reflected 
* here. In this way the user neel not be concerned with 
* actual GATEKEEPER services cedes. Two lines E code 

* are contained in conditional assembiy statements ard 

ሸዌ control the output to be GATEMCD or SATZ?TZzC depending 

* on the value of SATEMOD at the code start. 


© © 40 የሼ ጠር ጀ፣? +06 መቄ መቁ ча o 
ዒያ 
መ “ 
ያኒ 


- 
er 


* This module reconciles parameter 53551 5# 65 

* between MCORTZX ‘written in PL/M) and user programs 

E written ir PL/I). 

NEL calls are made to the G%TEREFPER in LEVE 
;* OS. The address of the GATEXKZEPER must be لع‎ 


en velow.*/ 
ت ا ا ا س اک‎ -- -- -- -- --- -- -- - -- - - - -- -- -- - -- - -- - - - - - ው መ መው “== 2 nf 
Ne ADDZEITIE Turction does not make calls to MCO2RTEX. */ 
:* It's purpose is to allow the addition of twc unsizned  */ 
116 bit numbers from PL/I orcgrarms. m d 
o IE RESE BEIR FA AE شر‎ A HEFE AE AX RK AE RESE D IERE S jE 2F IR e E A AS e ee d DE E IS E E AS AE E AS j YC 5 / 


۲ 
ርዕ 
8 
ና3 


Fl PD ዐዐ. Camere Te 
Bl) . TER 


202116 0 7 ‚жж TEESE DECLARATIONS MAKE THE 
202116 7 pe GATEXZERPER FUNCTIONS VISTELE 
PUBLIC CREATE FYC ;*** TQ EXTERNAL PSOCESSES 

PUBLIC CREATE PROC 

PUBLIC CREATE SEQ 

PUBLIC PREEMPT 

PUBLIC READ 

IS LIC TICKET 

PUBLIC ADD2BIT16 


& 
M. 


7 
5 
- ےد 


AWAIT IND EQU £ eg TEISE ARE THE IDENTIFICATION 
ADVANCE IND 709 1 pas CODES ZECOFVIZED BY THE 
CEEATE ZVC IND ECU 2 33% GATEXFEPER IN LEVEL II ov 
CREATE SEQ IND кой з MCORTEX 

TICKET IND EQU 4 

READ IND FOU A 

CREATE PROC IND EQU 6 
PRFEMPT IND FOU 7 


324 
=> a 
ጎኑ 


ጋ 
en 

=) 
7 


IF GATEMOS 
GATEKEEPER IP TW 87 
GATEXEFPES CS DW @BEBH 
ELSE 


7% 


287272283 -12 7 41 ; ea 1 ML 


GATEKEEPE= CS Dw 05 NA ہے کہ و‎ тте == ہر کہ‎ 
INDIT 

GATEKEEPE- ЕСП DWO 1 ه٢‎ ۹۳٢٢ ٢٣٧۳٣ الا‎ 

CS ئک‎ 

: Sc sacs A W A I M يع ویو‎ A yj A I m 32 ረረ ለ VW A 1 dl sx ል 7 A KI Au AY 0 I m se sis oie ES / 
AWAIT; 

POSE ES 

MCV SI,2[92X] 5831 &-- PNT TO COMME UU EM 

MOV BX, [BX] BI <-- PNT TO NAME OF EVENT 

MOV AL,AWAIT IND 

PUSR AX N <== AWAIT INDICATOR 

MOV 2L, [BX] 

PUSH ٢ BIT <== NANE ከ 

MOV ለ፲, 151] ‚Ai <-- COUNT INE INED 

PUSH àX ¿WO2DS <-- COUNT AWAITED 

PUSH AX ¡PTR_SEG <-- UNUSED WORD 

DUS TM PTR OFFSET <=- UNU EO W ን) 

CALLE GATEKEEPER 

POD PS 

Sen 

жж ADVANCE * ADVANCE Ns ADVANCE TST RD YAN CR Sg АНАА 


ADVANCE: 
ا‎ 


MOV 8.) | ;BX <== PTR TC NAME CF EVENT 
MOV AL,ADVANCE_IND 

PUSE AY ;N <-- ADVANCE INDICATER 
۰ ھ٣٣‎ 

PUSH AX S RYT <-- NAME CF EVENT 
PUSH AX : ‘WORDS <== UNUSED WORD 
PUSH AX PTR SEG <-- UNUSED WORD 
PUSE AX sPTR_CFFSET <--UNJSEL WORD 
ልስ. ۶٣٢٣٢٣٢٣١٣٣7 

POP FS 

ЗЕТ 


pes CREATE EVO Ce€* CREASTE_EVCO *%%* CREATE BIO RR E 


CREATE TS 


PUSH ES 

MOV BEN ¡BX <-- PTR TO NAME OF EVENT 
VOV AD  + +ى+‎ 0۳7 

PUSH AX ነዛ €-- CREATE EVC INDICATOR 
OTE 

PUSE AX SPYT <-- NAM? OF EVENT 

DUSE AX ¡WORDS <-— UNUSED 2 

PUSE AX ¡PTE SEG <-- UNUSED WORD 


r2 


О C hi UNUSED wCnD 


ረ=-> PTR TO NAME OF SEQ 


۶٢٢ 
INS 1511 590 INDICATER 


¡BYT <-- NAME OF SEC 
¡WORDS >-- UNUSED WORD 
;PTR SES <-- UNUSED 1 
‘PTR OFFSET <--UNUSZD WORD 


anp; TICKET * TICKET wu) 


cree Geom? DUMMY STORAGE 
POJ JNE TO TICKET NUMEZP 
تت لاو‎ AT NAME 


AND LEA Ton 


E T سن‎ TITOE T NAME 

sW#CRDS <-— UNUSED WORD 

ZEE PGR ET NUMBER SES 
Dee C TICKET NUMBER POINT=R 
NUMBER 


noe بب‎ 7٤9 


WEAD == READ 


ሐሩ ጩሪ ሒ= 


መ” ”ኪከ COUNTwDUMMY STORAGE 
II TC EVENT COUNT 


ጨስ LO EVENT NAME‏ ارم 
۳۷ 49 ۹۹ھ١١٣‏ 


EMT <= EVENT NAME 
BAT (<== ۱3۸۱۱05 7 7 CAD 


ae 


mae (RESTE SEC X 2፡2 


le wl 
eae éi 


PUSI 
2003 
P@r ES 


^ч 
GA 


ር 


MATE STO: 
EISE ES 
Ew IX, (BX! 
1 AL, CRIATE SEO IND 
EMES AX 


a AL, [EX] 


PUSH AX 
PUSE AX 

PUSH 1 

PUSH AX 

CALLF GATEXEEPES 
POP ES 

RED 


+ 0717 


I KT: 

PUSH ES 

Boe FS 

mie Ch. O” 

Pome 2x, (| 3X} 

OL, TICKET IN) 
2055 AA 

MOV AL, [PX] 

Eon АХ 


PUSH AX 

8 ጋህ 

a CX 

ML? SATE RES PEF 

mor EX 

Г # ES 

TET 

WEE تر‎ READ iS DAP ረር e 
AD: 

5 

ESE FS > 
KONTEX, SP ) 
MOY BX, [3X] 
MOV AL,READ IND 


PUSH AX | 
MOY [в] 
DUSE AX 

PUSH AX 


en TB COUNT Seca ٦٣ 
<—— AMEN T “ህህ A 


EVENT COUNT 


VP sme 
;PTR OFFS=T 


DE DRAN 


DIN Wo 

271... CX 

CAEL" GATHERS Pie 
BL 

POP 

RET 


pu ርቫጀልጥሂ PGC *** CREATE PROC so لر‎ ٢ ٢ 5 cxx / 
CPESTE PROC: 

PUSH 5 

Won ару SI <--=- PTE TC BROCAS ES 

PUSH WORD PTR [SI] ¿STACK PFOCFSS ES 

MOY SI,12[3xX] ¿SI <-- PTE TO PROCESS DS 

PUSH WO=D PTE [SI] :5 2805 25002855 DS 

E | ¿SI <-- PTR TC PROCESS CS 

PUSH WORD PTS [SI] ; STACK 07 

MOV SI, 3[PX] SI <-- PTFE TO PROCESS IP 

PUSH WORD PTR [SI] ¿STACK PROCESS IP 

MOV SI, 6[BX] دح پټ 1و‎ ٥۴٣ م2360‎ 255 5 

5155 WORD PTR [SI] STACK PPOCESSRSS 

MOVES) NOME :SI <—— PTA TO PROCESS SP 

PUSH WC2D PT? [SI] :5 86 PP CG SP 

MOY SI,2[RX] :SI «--ePTr 10 PROCESS PEICRITY 
MOV AF, [SI] SGET PROCESS PRIORITY 

+7" 9پ‎ ٣٣ ¿SI <-- PTR TO PROCESS ID 

ገ ከ ከ ም ሮሞ PROCESS els 

PUSH LY STICK PROCESS EF |) 1ፐፕ SN DENS 
“OV CX,SP ¿POINTER TO DATA 

MOY AL,CREATY PRCC_IND 

DUSE AX ‚М “>> CREATE PROCESS IND 

205:3 AX :EIT <-- UNUSED WORD 

PUSE AX sWORTS <-- UNUSED WORD 

PUSH SS ;:P230C PTP SEGMENT <-- STACK SEG 
PUSH CX ;PROC PTR OFFSET <-- DATA POINTER 
Cie GATS kar pee 

tnD SP,14 sSEFEMOVE STACKED DATA 

POP ES 

Lym 


ate ale Jo wae ats ale 9% al» ve را‎ 
2 ` ds حم اين كيم شيك حم کړس كرت‎ 7 


٣ РТ 


NAME OF 93 


7 ۹ ۶۲ 


DPEREMFT Een 


1:20 -— Dez 


A 0 


;RYT? <-- PREEMPT PROCESS NAME 
SWORDS <~- UNUSED WORD 
;PTP SEG <-- UNUSED WORD 


S-—ZUNDSED WORD 


;PTR_OFFS=T 
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ብ We ata رت‎ 
v^ va^ > 


; РРЕЕМРТ жиж 
РРЕЕМРТ: 

PUSE ES 

MOV 771 

MOV AL,PREEMPT IND 


PUSH AX 
MOV 4L,[BX] 
PUSH AX 
PUSH AX 
PUSO ۶ 
PUSE AX 


DOP 5 
R TT 

es ADD23IT16 *** ADD2RIT16 +** ADD2BIT1S “e: ADBD2RIT16G >> 
ADD2RIT16: 

MOV SI [PX] ፈግ ቲኒ ፕፐ ሮመ ስ 51ፐሞ,1ሮ)#1 

MOV BX,2[RX] ‚BX <-- 5025 TO BIT/16)s82 

MOV BX, [BX] :BX »-- 62 

ADD BX, [SI] ¡BX <-- BIT(1€6)*1 + BIT(16)#2 

RET 

END 
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KPPENDTRE 


۶۳ 0)] ٣ھ ٥٥٢ ۹٦۷٦ ١. ۲٣‏ نا 


د s‏ ت ست ست ست س ست سد سد ت یت سے ee‏ ہہ ہے m‏ — 


The files presented here ere a serles of procedures tnet 
can te compiled separately and linked ir accordance wi t ® 
LINKS6 input option files in 825 ia The results we 
be demonstratior processes D1 and D2, Or DITC and ይይ 


deperding on the option files selected. 


ገን 


at. alo ul. y As راي‎ ale ate ale ie ale ale be aly sls ale aly als ate ate ate ule ale als ale sie ats aly ate ales Le sie ate als ale ale 22 u ale als ale als als alas ماو مله ماو راپ‎ als wis abe را پ‎ 
لب‎ |» “` “ም eye SZ کې‎ +,» Zu "ү کے‎ “` Ыы “ 0 ፥ L ۱ ' 


' ' D 
Ca اپ پا ےب‎ Why “4* gun መ(* ዎ,* کے‎ er |” Za © Vë gur که *“ ^ رص‎ a ማሜ" > PLN @#ç% @[% @(* € 9= < 4< e(w Mts qu 4S TS که للج اوت‎ ወጫ و‎ #,^ +,» *“1* #1" ጣ* دس‎ 
. ፥ à ' لي‎ ' , + ፥ ' ' ፥ e al * 1 ۰ à ' 6ቃ/ e ' wie ae 
راه سا‎ ate ate ate aly ats ale ate ale als ate sie ale ale ate ats ale ate slo ats ale atv ale ats als ats gis ate sie مثو ملو‎ ale ale se sie ate ale sta ate als ale ale So ale ale cle ate ate ale ale wie shoals why ale و‎ e 
` 
Ps ~~ هن‎ ዳ Zus A "> +» ey Zus گی‎ 2“ 2 “` A A. + “` ey" eye دي‎ ^- AS eu AS Ld hd Se AS 4» > 3,6 "> خر‎ 2 eye ^V e ری‎ e Zus “* ey eya e ep +” > ~ وريه ع‎ 2 e ^ ^^ ጭ e “~*~ Ld hd اب‎ ^ e, 


ale ale alas 


ale ale 
түз 


ж 


aly we ale 


aly ale ale als ale ale 
کړس کړه کړه کړس‎ OY دوس‎ nS 


We ale 
eya که‎ 


ale 
اا ابس‎ 


" 
gd 
nA 


ate als ale 


ale ont, 
en > Ld hd 


y. ale aly 
م‎ Le mi سا‎ 
ats So ate 


ata ate we 
ъъ 


eS cop 


de ke 


Je KN‏ واد 
کله که gi‏ 


ale ate ales 


e Je Ne 
A~ „~ وم‎ 


e ale سام ماه‎ al. DÉI 


rs‏ ې ېم 


Je de y: ale‏ صا رې رق سي 
ከ ንዓ‏ ہک فوس حك 


we 52 ate 
کے کے کے کے کے‎ 21% 


8 የጋ ጋ ate ماو‎ ala nto sl. ade 
` ` h “۰ ”. 


eya "ግ 


کے 


።'“ሖ ካ" 


ale ate 


2: 
ыы SC ፥” 


70۶۹۶۷۱۹۱۷۰6 
NEE EE Гог execution under 
DT TST TENTS TSE VCCI XK loader, the last process 
a to be loaded mast Contain the initialization process. 


abe ate aly 
- 4" eya ЫГЫ 


۹ 8 
DS 


ende ዬ ሠ 
۷ کړه کړس‎ 


£ Yo له‎ ‘ow PE 
ate "lo «Lo لی‎ aie ale We ale we a's we 
፥“.* ዎዶ” en TULA A mo t9 


Jans 
^ ` : 


whe aly ate aly ale ale We ale ale Jo so Jo «o sie ate e ate ale عل وله‎ aly aly رل‎ sie ale 
ye ye ھ٠‎ Ss „үз “ሮሮ ጫ ግ ግ* w ሜ* өү “° ዳግ Sp eo Om ሚ* و‎ ጭ Su ^^ و‎ e; hd e ^v 


> #2 ستيه رئے‎ ate sie Le «S» ^o «o slo nuo 


- te al . 
کی ا ید‎ 4 
ale wl sie awe 8 ° 
e 5 


ale 
ግ* ሠ P 
- als ل‎ .. PEN? be ate ل‎ ' lo ale مله هي‎ ale 
rn I nen “ሩቅጽ E دے دیڈیٹت‎ E 


Lo . x: "e 22 Jo nn‏ ءل Yes Je Jo‏ م له 
La e . . e ሜኑ A ` A 4” ey Sur ሜ*‏ سا w ` өү»‏ 


We ate ate Se 
ep “` ^ e^ ሜኑ ግሩ A~ ሚ* 


ls q) '. „er 
x: 5 ኣ። As A~ ^D A~ 


deet 
PROCEDURE CPTIGNS (MAI 
“INCLUDE gateway.p 
REGIN; 
اانا‎ ር የው 6 


N) RETURNS(); 
li, 


ОГ ЫЛ ТЛ 9^. 
Md а, 72a PA, 
ASS Pa. 079a ^24, 


“722334, 
“272ል "ኾዔ )፤ 


NGN Lec ries tempree (PROCESS eIlD. PROCESS. PRIORITY, 
/* SP SS IP 
7 CS DS FS و‎ 


EI R4) 
ا‎ 


* 

? 

e وله‎ 
ы ы 

? 


/ 


» «lo «lo» ai, elo 
ስን ዘ پ‎ On 


ate ale ats ate ale Se e راي‎ «J^ «lo دال راب‎ te alo rte حا رې رل ږې رال رال‎ > ረ ۹ sk Sa ate 22 ate ate we ale ale al aly <. aly slo Jo ملب رل‎ ale ats alo ale ale ale alo als 
BE SR ARIK AAT IK AR FS Sp ጭሞ ጻ። ።፡ ጓ፡ጫ፡ ።፡ ጭ ፡“ጓ፡ ጓ፡ ጻ፡ ጻ” ዳ፡ ጻ፡ጓ፡ ኋ A deht 26 AE AS 


95 wie sie ale 
ኢያን 9^ 


፥ ፥ A A ۰ ፥ 
مر سل سا‎ 9454-9 
2 PI IIA کړس‎ AS . 


~ 
“መ. "> Zus qe "„% کب‎ 


als‏ ماد مأو 
z ^^‏ ^^ 


ale راې راپ راي راه‎ 
መወ vi ey ow 


5: ely sie aie alte wle ale ate ale ale ate als ale ales مڈیم ےہ وی‎ o 
ر ^- ¢ کله که کم‎ 


52 مأو مأو مأو‎ > <t; 2:2 ai: aly al: ais sle ato ale ale als = a 
سک‎ л“ څې‎ SS w ey ey “ነ دم‎ "5T Sun مه‎ ` Ld hd My e ey 5” v. “ነ “٠ ”|ъ ^ کر‎ ٠ ү” 7 i ye Suz 


whe ياو‎ `. 
ex ds es 


DINEE PLI code 
This code creates the D2 process and the delayer 
puces execution under MCORTEX. Using the 
MCORTEX loader the last process loaded must contain 


als ale ale 
O 
ate o ate 
ول دا‎ ፇሮ 


ae ate Se 
ር ከ eq. 


ate ats رلم‎ 4 . . . e 
sol th tializat 
2 1413115131 ар топ 53۳65 
ate ate 
ga ^ 
alo علو‎ ale ale ale ale So als ale aly ale Jo ale ale aly ሯረ 3 2 X م له‎ ak یلو با‎ ate abe We ale ate Y چاو را راپ‎ ale Seats ale Wo 2 راپ‎ ale abe ale alo we ate ale ale aly ate alo ale ale ale ale ats 
ور و‎ Re وك كوك كوه كوت كوت كوت يت دوس دس‎ угы үз дүз کچھ کر‎ Ni A ° as درس کرس دوہ کے ےہ‎ ሰዘ كوت كنت كوت وک دوه جارك كوت جوت عوسي‎ ٢ رٹ‎ CE pd Cand Cd baka اپ بب‎ VIC a Vo Ca OIC حر پا پا‎ 
ملو ماد‎ alas alo alo abe ate obs sta So ale als ale ale als yt. ماد‎ ዳረ ران راي رال ماد‎ ah ods alo a's whe abe ale als ale a! fo we ats ate nts علو مأو ملو در 8 راي راب‎ ale ales ale wo ate als abo ata ah whe 
^" “٠ ግዣ Ss bh an Ss ae eN e ጫ* 2۹۰ en ግ e A: e; ye “ቦሮ ^ Zus دوت‎ бүз eye ا کو“‎ ^ AS “ሦ 2 “ AS э “~~ 2 سا‎ a e$, e. Ld hu e. +> va AS “ ` e e ey کے‎ e. ey اب‎ ey ey اب‎ ya Ld nd San 


Teo: 

PROCEDURE OPTIONS (MAIN) 
INCLUDE “gateway.vli' 
BEGIN: 

ከ 


RETURNS(); 


a cg pao B. 
0929 BA, øØ713 B4, 
NOM DANN Omm DA. 


6 6 0016 
“2225 "ሟላ , 
EUG R45 


(PR 
5 


TALL 


ع 


OSS ID, PROCESS PRI 

SS IP 

CS DS 55 
በ ሠ... 4. 

aaa "2715 nac 

“ООЛО 934. “7713 34, 


012-1 2 DOC 


ate 
co 


); 
ӨКҮ, 


701625284 , 
ا‎ ig 


66 6 ሰር 


76 


CALL await h ہہ‎ UE 
/*CALL await ( 0 ۷ COUNTS 2 / 


END; 
OND; 


ate ياو‎ ate 22 ate ale abs ale ኮክና als alo را د سا را رل ږل‎ ale ate abs 2: "ረ ale de ate ate ale 2 ےا‎ ale als ate ale sie 2 مب‎ als we ste we «le abs ale 32 xt. <; KK: ale ate ate ate 2: 2:2 ate ate ale able ale ae ale 
WA کړ‎ Zus du en An و2 کے‎ ۶ ^^ e, کړس هم و وس‎ ы e ^^ “` “` 5” ዎ፥ Zus ert dh Zus ы hd Pi و :لد سا ا‎ e a کم وب‎ dt ГЫ er ሣሚ 7," e; Zus Sr ° kd bah 4” ہے ہب‎ Za" SC 4” ٠ ېه‎ ^ Zus dëng ee کچھ‎ no 


ate ats ato we we ate ate ate ate ate ate ate ate als ate le ate ate ate We ate ye ale te ate ate sie ale ale ats a's als ato als ate ale ይዎ ሓ"ቃ ړل را رې راه ما‎ wie sie ale als aie aie ste we ate we whe ale ale اې‎ ate ale 
2 2,* 2° x درت‎ Фүз Zus ግ* eura. ሚ* 25 ә,“ 27 eye a 275 275 “~~ y aS 2757 2, y: 2 e.t ~ e> el 2 2 25 e 25 en e. > AS >< 25 AS 2,6 Ld hd ey w A e. r> э 2° ሜ* ሾ“6* ፇ,* 3: وبا‎ ግ" Sun en * gr 


2:2፡፡፡ AGO 
poo MCDEMO.PLI code M 


*** This code is the tain control lin داد‎ nS ٤٤ “ae 
demonstration programs Il and D2. It is compiled "EE 
"zen separately and linked using the 21 and D2 input ж 


te whe a! . ` sts als Je 
=e ቃ 

кж opyionr iiie 0 

i w e 

e^ yr ale ule ale ate 
ey er + ‚үм а 
رلاب راپ‎ ale ads ule ute abe ale als ale ale ats a's abe 2 ate ate als ate abe راپ راپ‎ 2 ate په‎ ate <7 ول‎ Dä ats als ፓረ ats ade ale ate ale ale als ale ale ale als ate oe ale “ረ ate ats عاو عاو رل‎ ss DA ملو اد‎ ate ale ats ate 
هم‎ ey “! ሚ* er Lé > ea ein ^^ > “* “ዮሩ “` vs en ne یھ وړم‎ ea “* r> . ^ ^ e^ 4< no. Zus e en ^^ دي‎ Zus Ss e, ^ $ Sun ey “ کچھ‎ “,* ቃ.* ےہ‎ ዎኔ" Lfd و س وب‎ ey ~ ሩ ^ ^" “* کم‎ ^^ 
ale ate afte abe ole ate ate ate ate ale ate ale aly ate ኳ" را‎ ke ale ais sie ale sl je = be mie x te Je aly 2 يله‎ ale ate y te whe ale ale ate ale We راپ ياپ را‎ ate ate wig we ale e's ais ale we x whe aly ale ate 


medemo: 
PROCEDUZRE; 


ZINCLUDF 'eateway.pli ^; 


DE 


اط 


o Pi 


L 
O 


PC 


A 
z on ENTRY; 
DECLARE 
delay value PBIT(16) STATIC ሺን EE 
one BIT(16) STATIC ۲۶۷۲۶۸٦ 


enouer BIT(16) STATIC INITIS°® (gee). 


delay PITA) STATIC INIT! fies TESE 
sync BIT(S8) STATIC INITILE 6 .))›ፐ፡ 
exit, BIT(S) STATIC INITIAL በርስ 5ይ). 


DECLARE 
msel CHARACTER +4 Sire iN ۹۳۷ 
(“Delay Event Count is ^); 


CALL loge on; 

CALL create evc (delay); 

CALL create evc (sync); 

DC WEIL* (delay value < eno 
PUT 5217 Insel, delav valu 
CALL advance (sync); 
CALL await (delay, delay value); 
delay value = read (delay); 
delay value = 602111 (delay value, one); 

END; /* DO WHILE * | 

CALL preempt (exit); 

END mcdemo; 


ገገ 
ኤዳ 


ሆረር 


o‏ ا لد علد عبد كاد عي ا Oe ele‏ تک 
RENA E RRA NA IR‏ كز SRA NR NA‏ 
E 2 Ze Se‏ 
LOS ON PUI code 22፡2...‏ 2 
==።=ና This code allows the operater to start all real AC‏ 
INDDOCSSSOSmemecditdnc dae oDEMO.at the same time BER‏ 
a rezardle[ cf the order that they came on line. кк:‏ 
nis 1S a demonstration only and is not reovuired eg‏ 
Sender MCORTEX. `‏ 
E AQ‏ 
NEE Ee dee e dee de E DA I otc je ton jen ej xt x‏ 
که EE EE 2 2 S: 3 ዓዓ. Dye Te Ae ዓ፡ም “ሠ 2 ጋ" ማዶ ን ማሮ ግ ግሮ 2.2 ግ ጋ እ፡ ጃ። ፡ጁ። ኳ፡‏ 

log on: 


КОШЕГЕ; 


AINCLUDT “gateway.pli'; 


۹۰۳ھ 
CHAR VARYING,‏ 3یت 
nun sbc less 1 BIT(16) STATIC INITIAL (2221 "B4),‏ 
one 3IT(18) STATIC INITIAL (“2041 P4),‏ 


MENTE) STATIC INITISL ( 2909 °24), 
Mee in 2I1(9) STATIC INITIAL ) 21 54)1 


DECLARE 
msel CEARACTER(39) STATIC INITIAL | | 
(“MCOLTEX Demonstration Prceram ON LINE ^), 
msg2 CHARACTER(3G) STATIC INITIAL 
("Dress “М PTIRN Tto Continue ). 
EE 14) STATIC INITIAL 
ከ ከ ዜር ከ515 رز(‎ 


DT (лел) {SKIP(12), X121), £(39)); 
TT EDIT ( —UOSKIPCIZS), А(?)); 
CALL create eve (log in): 
CALL create sea (log in); 
turn = ticket (log in); 
LT ADIT (MESES, turn) (A(14), B4(4)); 
IF turn - num sbo less 1 THEN 
DO; 
٠٠۰۰٠٦۷٠۰٠۰ ۱رت‎ 5672 X(25), A(30)); 
GET LIST (g0 signal); 
END; /* DO */ 


ELSE 
DO, 
iN addepitio (turn, one); 
ከ ከኬጭውኬውኬንክህክ ስስ ምሥ  ከ።፡ብ1ከ110ጅ.18, turn) = await(’, log in, 
ООУ ናን 454), ሠ94(2), AC2), 


DN DS 


( 
Mê il, urn), 


B4 
ml  ي‎ | 


fe 


zb у 
CALL advance =] 
END) lee ons 


og in); 


ME SK SKIS BS AE SS SK IE OS OE FE SALTS BS HE OS BE CS OC ARE SYS OE BK OS AS AS OK OS IE ERTRAGEN NEN. 
DiS HE SBC ate Ns aie ote aC OE ONS BK NS AK OK sé 2 IS HE NE IL A ONS SIS SiS SIE IR IE Ar a ae ae A SSS as ne ۹۶۱۱۰۹۶۹ 9 999 11-0 
ер aX 
a e DFLAYER.PLI code жк 
“*% This code provides a time delay to demonstration وف‎ 
KX programs D1 and D2, under tha соо 0 x= 
ANM Ar 
BS BE MEAS ES AR AS AE AS AS NE NS SS RSS OK BK BS SS AE HE ON SAE ።። ጃ፡ ጓ፡ 3 2 OK AS IE ና AE BE OK TE AS STS E XK 2F کد کې‎ OK OES AE OK OS AS OS OS ETS 
SEAS HE ASAT TS OS BS كر‎ I KIR ATIF FF DDI DK 2 TK AE SIF DF PS ALE E E DK XE RS OC ። A E 2S KOKOK NS 2F DIIR AT PF KK DIS BIS OE SIE OK OE > 


delayer: 
PROCEDURE; 


YINCLUDE 'gateway.nli^'; 


t FIXED ST£TIC INITIAL (1609985 
ns FIXED STETTEN TER D D 
Y ONIS 


start BIT(16) STATIC INITI?ZLo0-20020950. 
num processors RIT(16) STATIC 101 11 20020972 


delay EIT(E) STATIC INITIAL ( تت‎ 
sync BIT(2£) SPATTO INI Tas, 11 ال لل‎ 


DORE 
DO 


D 


1۶2 ی۷٣٣٦‎ 
= 1 to iterations; 
ل‎ = 1700 0481 26 ٣۶ 
ENDS TOA 
END اي‎ 
CALL advance (delay); 
Start = add2bit16 (start, num proc essors); 
PUT EDIT (“syne await is б, start) (sain, А(1?), Pe TERE 
(0:01. — (Sync, Stars 
00 ۹۶ ۷ 
ENT LOL. 


C» r^ I 


ANDA F 


LINKS6 INPUT OPTION FILES 


eee‏ م حت مهت سر ۔ w መጭው‏ — > ست سے ت سے — ee‏ عت ہجو 


Mis eroup of files allows linkage of specified ob} 
Toe modules using the LINKSE input abbreviatior. As аг 
Ae alter compllation ofr "DINTT.PII, MCDEMO.PLI, and 
708 ؤ8‎ 0 and assembly of GATEMOD, the demonstration 
Broerat Di is created envoxing LINK86 Dili] . For further 


information on input option files, see (Ref. 13]. 


> کړس Yen‏ » کر ^p ዎም”‏ کرے کچے یں“ 


' ' ' y ' I. 
27 25 >< z x x< X< x< A 2 275 


ale ale ales 


ale ale را‎ ale als ale ates als ale ale ate 
ግ* ግ* ግ* 4 > Ld hd ግሩ ” ` ^. e. e “~~ 


e ala alo ale ate ale 5 aly ate ale‏ وله 
a dä An D a de du 2ዶ AE OS‏ 


ate ate ats ale le ale ate ale ale عله‎ BE 
“ማሮ ህ9* “,4* “የ5 #ሠ4* n كوت كوك‎ #үъ ہے دپے‎ 


ate ae vie ats de ole s'e ats als als we 
eS 8 وھ کے کرس 4% 445 کے کرے‎ 


علو ماد ماد 


“ዮሮ ግ፡ ፆዶ 


ale als ate wie ale ale ats alte ale ate ale 


a “* ы ы Ld hi بب ورم‎ > Sun ЫГЫ Ыы 5. p 


ais ale sde alo de ats را‎ ale ate ale als 


p ^" ^ ej ey ^ Le hd ግ* ግ کچھ جس‎ 


0-7۳ 


+ 


aie ste ats Seals aly ls ale ale ate ale 
کچھ *,“ کی‎ I کرس ذپے‎ ግ* ፆም “4> “* ፇ” 


ale ale ate e ate ate % ሠ ጫያታ‏ راه DE‏ راه 
` 


-> Ld hd |“ > „eo, "”(* e. e eya eye 


ate gle als 
Zu > Ld hd 


ړل ړل wl» «lo eir nho «ia ale ale ale she ale‏ 
در کھ کے کری کرے کرے کرے کرھ جرے کرے جرے ግ"‏ 


at, ماي ماود ماد‎ ale ale رال راب‎ ate ats ale ale 
ny ` ` hi v^ T^ T کې‎ өү“ Su Ss Ыы > 


® 0م 


ate ale ጋር eats ate als ate ale 5'2 ኣረ 
eye Ss * #ዶ er ማቕ" e> ey 


AREAS 


2 راد‎ ኒዎ whe ale ale sly ale ate we a! 
> که کوت من .بم‎ aye ep “x + 


ats ate ye ale als whe 2 sie عاو عله‎ 
٠ Ld hd ye Ld nd ግ* ۵ ዎሮ 


x< £»z ale ale ale ante sie ale ale weber 
4* ዎዶ ግ።ፆ ጣሶ ግ* ግ። ፆሮ ማሶ ግ* 


TE AS ALAS 3⁄4 3° >< 2 2 >< >é 3° 


aly ate aly 
“ፍሩ e` ey 


ate we als als ate ale ale ale ale رال‎ ale 
ግ* ግ* ግ “45 ፇሮ éis ër: rr ey ግ” ማ* 


را رل را راب عاو .< t,‏ 


fan 
NAT ANGE کړه که کړص کل‎ 


mapía11lj 


ጧ/ሠ als aly ale ع لو‎ ale ale als ሜም ` 


#. 


e ats ales 
` V Ld hu ^ 


% ወቱ ale 
"у “* 


ን 


ef ^ 


ate ate 
کح کړس‎ 


په علد راه 


ats abs 
در ده‎ 


ws abe 


ale‏ راه 


ep ጭ 


de st. 


^v > 


als ale 
e» Ld hd 


DE 


i] 


alo lo 


Ss np 


ale ale 
ديد‎ በ 


ato e ኳ 
Ld b eya 2 


ate ale ale ale als ates ale ale alo als abs ate ate aly ato ale ale als‏ ړل را 
a > > Zus "ү ^^ ቃሩ 2, Suz ^,^ „> T ፇፅ፥* Ld nd‏ + د e."‏ 


vie ale ale als ate s< 3X له وليه‎ 2 ኣ'ቃ ~to 5 5 ats ate shy ale Sie 
po,» “4 ”ሎጮ “የ ግ* (e ` Ss ጭጭ è ٠ ЫЫ y کړس‎ tf که‎ p ^ 
e 9 a 

"DU n file 

1 کو رت ہن50 

4 

nts ade ate ጫ'# وكوي‎ P ale ale ate ate ate ato ats wiles ale ates als als sls 
INR IA IN IRA IA IAS IA IA IA IA IS كوت‎ S لل ا« حوس‎ ፆ,* كو‎ 


2 fe ate ate ate رګي پل‎ 2: 5% ate ale ate ye راه‎ 2 whe ate ate ate ale als 
27 و م ےھ‎ Ld hd < > ` ` e` “` >` LS $94 qe ديه‎ e ዎ,ኳጫ ىو هب‎ “ዮሩ 


ab[BeE2]],data (at p5c 


, ۹ , ل ' ل‎ . . ۹ ' ‘ 
2ጾ 2። DIS BS BS TE BS OE NS BK NE DE X< X< >< X< 2⁄2 >É z z 


we ate vie ate a's we 2ረ 
à 


کې af a e‏ ” 
ود مت مد بت نت یہ NK OK OS‏ ما ماد CSS‏ 


put opti PINE 
x 


uly af ሯረ ኣ y whe ale ats ato‏ ےا ate ate als ale Ve ve Se‏ واه مله 
A “7 e op of ٠ Zë rer Ze dr ግ“‏ کړه کړم EA ፦‏ كوم کړم 
ጣሪ ule‏ راه راه ره راه dle «ko «io eir sk‏ رل e le ele ais wie sie‏ 34 

ጫ Se ep 5 ማ* ә, ግ* ey > As Мы A. Sun eya 252 e, ee r` و‎ 


vaiab(439). mulas 


ы, >< alo le ale ate ate ale ale als ale ale ale aie als ats ale ale a's ale 
کړس‎ Фу» n 2 كوس اهرت كوتس كارت‎ ማ” “(* #ጐዎ oy cS oC HS FS ISIN. 


ale‏ راپ mle als ats ale als‏ !د alo‏ راپ رل با alo‏ را رل ale sle‏ رل ږې را 
ey “ነ” ep eya‏ و kén Sr +” “> eye NN eya ey ey ү»‏ `“ ط2 ep‏ ` 


put ርክ 1 ሞ 7 


why ate als Oe aly «io ats ateo Jo ale ats we «lo ao «lo «eis «^ ale so ate 


q A ANP A A 


ats ate ate als 22 ate ats 22 ste als als at, s'e ats alo ate ste als ale ate 
که کے کے‎ AS كوت كوت هرت دوت که کړله کړس که‎ aS AS INS ISIN 


ie Ga als =! ale ማር este ste she ate ماخ سا ره ساخ دنه‎ 

e. Ze ?, MR T ey 2 x< ግ AA er ہے‎ as کے کے کے م کې‎ 
፥ t , y we 

DS DHE AL OK SE AS AS AS 2 32 22 >É >< >< 32% 2⁄2 5° 3-2 


input option file 


als ale ate ste ale ale ate ats ale ale a te st e «to ste «lo ee a fe ale 
كوت كوت كرت وړه کړس‎ AS AS 9h كرت اث ` > کړه كر‎ nnm tc کے‎ 


HE ME IK SL SE SK HS OS Sh 6اک دہ دی دم رذن 6 داد‎ 


bfage¢]] ,data[lab[As6C 


D < 3° X Zç X aaa 3⁄2 >< >< 


E ፳፡ ፳፡ ፳ ፳። عد علد علا ماد عبد علد‎ Re ee OK ale ake de علا‎ ate ake ake ote 


D1TRC input бо ОП е 


> ፡ን፡፡ ን ፡፡፡: ت۶‎ 


als sta ake aly als als al ale ols ale al. ره‎ als ats ale علو‎ sie ung 
ey “"“ዮ f° de Sum 2 “ ey ^> eu" #үз ورك ووس درت‎ +» Sun 277 كيج کړس کړس‎ 


SE 


` 
or 

د 
^9 


Aë 
4S 
مو‎ 
on 


an 2۸ 27 AS y 


¡cod 


SES ES 


we 
14” “و‎ ፆሎ ግ ጭ ee Ed hd f ግ* ጭ r> 


687 


ats als als ale ale alo 
eye و٠‎ ቃሮ Suz 


e ale ale ale we 
ቦሮ ግሶ 079^ 


# 


eh 
`? 
`, 


ate als ale ale ale dy als 
4S 6a ማ* ግ፡ነ ግሊ nS HR 


e ale ale ae 


Sn no 


UXTRACE 


„ 2 ste ely ate sles 


odela 


7 عا‎ ats ate we alo ale ale sde ale e ale ale 
7 A ey ep ey e > ey" ጭጭ پخ‎ ^ ፥" 


sie >> سه‎ 2፡2 He A x< x ውር >< 2: » 5, Së A 
ats alas ale 

st‏ اد 

ale a e se ale جح‎ 22 ate ate ate 
کک 600 ۷و 26 ا3ک2 66ہ‎ 


7 2 6ئ :225553 


MCORT#X = THX 


aly سای‎ 5 Je ياو‎ wie ኣ"ዎ رال راپ مله‎ ale s'¢ abe 
کرت ا ”1 4 کا ا‎ e ووس ليون كوم‎ ny 
1 1 ፥ ' ' ' ' 

*. ሬ slo stu ve ale aly ste wf, se ale ste 5” 
` Pr TEN sx (rr éis dt 

6 ate ale 


ate ate ale ats ate ate زرا‎ 2: ate ats als sie to 
> oy ቃ ቃጫ ግሥ ^v Ld hu em ew + 


' ١ ፥ , ፥ è 1 
ام درد اد ےد‎ 75 


1 

INIT [coiela 
MCDEMO 

OGON, 

ATEMOD 


wale ate ate aly‏ یاو 5% «io ate ate ate sc als‏ دای 
ሆኞ “፥” ds dan gun‏ کرس کړس كوس كرات کے کے کے" 


ale ale se ale ale ale ale ale ale sl, سام‎ «ls عاو‎ 
Ss Sr HM ы ы SC np eye وي‎ Sur e, *47 p ^" 


m یلو‎ Tunis ساپ‎ wie at, ale > ፍ'ፇ al, n athe 
کو“‎ > ny ` ^D ^ ep ግ“ vs St ጭ ^ ع‎ 
vo ufo اد‎ ye را‎ awe را‎ ala nla ale ste ate als 
کړس‎ uS A IA IA IA A IA IA IA IN 


DINIT2 fcodelab(S4911. datalan!+so eae j o Oo)! 


ve 22 وله‎ a'e رل‎ sde ale ale se ماله‎ ale sie 


als awe ale ale ale ale ale alo 2ኛ 2 e Mo M 

mr As AS AS هرت‎ AS کړس‎ дүм en 

راپ راه راپ 

eu “£ n 

.< ماب رل رای رل یاب راه رلا 3 vos abe ate aly ate‏ 
4 


e ` لب‎ ep er ` ری‎ w “ዮ ግ* ^ eg ZO c 


we ےد‎ 3s e al 8 3: als ae ws de a's ሓ"ቃ 


کړس کكپے کپے کرے جکړه کړس 
A‏ 
፣‏ 


ка 
لد‎ 
De 
ርጋ 
۲٢ل‎ 
HI 
+3 
[x1 
>< 


mie ale > e ads 2ረ ale le ale ale‏ را رق 
x‏ 
ays‏ كوت حيرت AS‏ پخ 2 کپ م Mtn‏ 


ac ais _ 


E et,‏ ما 


KEE 


4 ۰ D * 


ate ate ale ats ste او‎ ale لو راب ړا‎ ale E 53 
enn Zap 


DAS 


DINIT [code[ab[5471], datal[ab[439],m[8] ,ad[s2]] 


MC DEMO 
LOGON, 
SATETRC 


O A lo = 2 ate whe راه را صا راه‎ ste ate ale We ate We we 


alo mio ate aly de ale ade «lo slo ሬ!ወ g‏ ماهد wl: ale ale sie‏ داه [ቃ!ቃ የቃ ጫ le whe‏ راه ale‏ راب رپ sl; ቃታ” ያጋ ale ule ale als ale ate ate Sao Oe ale ate‏ راه راب صا اح 


GEN. ate ale ate ats ale ate ate We ale aly ډو رل‎ 
” e 


le ale de ale را رلې را‎ ` 
7 ern ds 5 x 2,`* dun 0,9 A ”ዎ = خض كوم‎ 
0 ፥ VS ën ١ „| ^ ግ r ey ey ግ 


0 
` t. وه ` په ۍ‎ 
a Te ወሪ 


^£ 


"E ste abe abe ahr ale abe ate ate ate ale ate ate ate ale ate ale als ala را ړال‎ st. sj, sta st, ጧቅቃ *። ሓቃ የሇ "ዎቃ 
` ` ` ` 
2 e, ^ ^ ey > ې‎ > en ሣግ“ ^ e o> .,` *4 "ቀቅ ^ ይ “፥* qe y» eya ^ ^ ^" Zus Ld hd ^v SR ém e 


RE DARC inpar option file 0. 


toate we ate ale e we aa صا دا وله عله راخ‎ te ale ale alls als دل رټ دل‎ ala ahs «le alo alo alo tows we alo whe ale alls ate sls ale ale ماه عه ولېه‎ ate ale alo ale ae whe Yao als اې رلو‎ 
x x AS AAS AE ASS CAS ALAS 8A A 2 


^ ny ^ دص‎ ጫ a” ^ کړس‎ S ^" A> ө,“ مرب‎ ማሚ ` í ` ግኑ کچھ‎ ጭሞ A> ep درن‎ ey” > ዎ” ማ* AS ^ sy ep 4” 2۸ ግ* ^ 


E اہ‎ 202፡፡፡፡2.22556..5.52.2.ጮ. ሜሪ ም ሚማ 2 2 ማ "ቦሮ ጋ ግ። ጋ 2 2 2። =። 2፡ ።። ጓ። ፦።ፎ ጁ፡ ጃ።ጻ፡ጃ፡። ጓ፡ ጁ። ጓ፡ ፡፡ ጓ። ።። =፡ ሯ። 
IRC = 

NTE? 0002525271١١ datalanl439] ,n[e},adlez2}}, map[all]], 
RES , 

LOGON, 

DELAYER, 

nu TC 


ቂቋ P ENE BFS G 


All the LEVEL II source cote written Р ٥٦۳ 
contained in tne file ር). It is compiled with NE 
Likes attrabute. LEVEL II is one of the nelocateable 7 
modules in file: KORE.LNK. It is part of the ٦ 
code module in 732011832 TR ZO-E is the development system 
versicn of the file KORE.CPS loaded ty ۸6 كرض ق0‎ CMD 1.٠ 
CP/M-86 operating system. Two memory maps (KOPE.OPS and 
KORE.TRC) located in Appendix Y give information on this 
module. The maps come from file: KORE«-MPZ after - 6 77۳ 
linking and locating the applicatie m R KOR=S({ OPS ) TERS 
produced with the code unaltered. KORE(TRC) is obtained by 
removing and adding apouropriate comment marks from the 


indicated code before processing. 


25 


ate ale ale ale aie de መረ «Je «Lo ale e vo ې رام یلپ‎ 

A pop ep n9 n* ግማ کچھ کا ماد کم‎ 2 у» дү > x: ao RA x x< ax 0 
وله‎ «de ای پیاې‎ Yo sl le whe راپ رله‎ ale ales ale 2ጾ ጻ= 

3። 5. 25 2ሎ 3 2⁄4 X ፡፡ 5 ጓ፡ ጻ፡ ጻ፡ کې مج کہ که کہ مد کرد مر کوت هت‎ <> F 

la ملو ماه‎ м" 1 o nto ሓያ سا‎ e wie په‎ ty aly ate we ate ate ረ sie sl: ae دل‎ 

; SCH 2 2 A 25 aras AMARAS 2 (aAA 25 SE y 


CREATESFVC 
AWAIT 
PREEMPT 

>ሙ . ፡ 0 
|. 1. 
QUTSDNUM 
OUTSHEX 
INSCHAR 
INSDNUM 


mle لن‎ TP CAUTION!!! 
moe TO TELS FODUTE 
BIO BXISTING ONES, MAKE 
1ٹ‎ 1900٦0۳١۶718 CHSCK— 
GATESC E 7725 
ADS OBS 

10 TAS SATESMODULE 
IF IT FAS CHANGES TEE NEW 
Perils; CAES 
Eo > WILL RAVE 
00. 


! 


a OLDTE 


o ЕДА 
eg دت‎ 


NS GIVEN AT THE BEGINNING 
TT TO TES ENTIRT 

S ARE LISTED TES SAME 

THE VALUE AND 

Ins 

۲ٰ 9 


GATESKEEPER 
HEAD 
ADVANCE 
TICKET 
CUTSCHAR 
OUTSNUM 
SINDSCHAR 
Rene Vag She 
INSNUM 
INSE*X 

UTI ON TT! 
NGES ARE MAD 
HE LOCATOR M 


1 


GATE. 


COMPILED, 8 
WIT 
IPS 


L DECLARATIO 
ERAL MODULES 
HOWEVER, 


alo elo له اله‎ te 5 ale we te نو عله‎ ste de «e de ek whe whe So AS mis — ^ ade Je «ls 
/ ጓ፡ ፡ 2 ጻ፡ 5፡ ።። ኙ ኣ፡ 5 AR Fa AS FT AS AS AS ےھ که کل که دپ کن مت کي‎ ጫ፡ ET 
1 , لپ ره‎ Be ef 4 اله‎ ate at e په‎ 
/ 2 2 #74* “ማ4* ማ* “(*ጐ *፥5* D > 2 ` 275 AË >< rod م2۸‎ ር SÉ = > Sie ni ~ " on Ka > z ; 
' 1 1 to wl 1 te! سه‎ ate a 
/ Sa 0 0 0 کا ہم‎ aye the Ms 345 BIS 26 ع2222‎ 22527267 2° >€ 3: 2° X° ጓ። ጓና 3S 3S 3.5 
2 ሠ 
LE ے۸۶1‎ ء٤‎ 
.ےم‎ 9 
ETILE: 727٦ 


NEST ON. 
PROCEDURES 
DEDINSD: 


PE 


CA 


IF NEW USER SERVICES ARE 


CR CHA 
SU m 


PEO SEE TF ۳٢٣۶ ere TON OF 
NCT CEANGED. 
PROCEDURE HAS BEEN SUPPLIED 
IN: 
ہ3۰‎ ج٦09‎ 0 CBE DATE 


a ٤ 


SCHE RELINKED 


2FLOCA 


LITERA 
Oona 


“MCDULE. 
IN MORE TEN ONS MODULE. 
10 WH 0 TTTERAL 
COMMUNICATED ACROSS 


۰٠۰ ۱ ۷١٢٣ AND 


TO CHANGE TI IN 


CKEATESEVC IS AN EXAMPLE. 


ONz MODULE AND NOT TRE OTHER WOULD KILL 


Y NEW EVENTCOUNTS BY THE 


AN 


A / 

፥” 

te aly te Jo el wie wie al, ' te له‎ k. 

BS SME ASAT HC AE ME ع‎ A 2 
NES ce sic ياو او‎ ate ate ale als ale ale ate 2 ale als ale ٤ ante a! e e ዕቃ ዴዎ als 
ee > ya “` Suz Sun ds م |" 7 م "4 ' ' و‎ ሚ* ^ كرت ہے‎ e e PS 522 EE 

BR EE 2 ж к о A 


EE eror < E ጓ5 ETE AS HE 2‏ ہس 


یت 
2 


a er ር يود‎ 


NS 


EATION OF 


ረ یاو‎ ate ale э ate ats 
ሆዮ "ዎሮ e` qe ብ NW eya 


2 s'e Ki ረ ale ats abe 2: ats at, کې‎ 
እ A ትከም qe Фу" رھ‎ “የ9” es رب‎ e S ASA 2 >< 


E CR 
Оз. 


ate ale ale ale she do eo ale ale wie ale sie ate ری‎ ale ale Wo لم‎ 
CLES aS HS AK ES OS 


/”92725፡=።=፡=፡፡፡፡።፡ ፡፡።።። 
L2$MODULE: 20; 


E DEE te ste aie ste z‏ مت 


/* 5፡2 


Es LOCAL DECLARATIO 


DECLARE 


MAXSCPU سه‎ ከስ. stc wr m 

MAXSVPSSCPU LITERALLY 2 

MAXSCPUSSSSMAXSVPSSCPU LITERALLY a, 

FALS? 111 ٥٣ S, 

READY LITERALLY a. 

RUNNING LITERALLY "e 

WAITING Ld DER A LM E. 

TRUE LITERALLY aS. 

NOTS FOUND LITERALLY T5’, 

PORTSCA LITERALLY “@@CAU’, 

0٦ 2,‏ 1 ھ3 

INTSRETURN LITER ALES TE; 
/ 2 2096 NE HIS DIE BHF DS SIS BS TAS BES BE BER SHS BS BS SIS TS BLS 2 SHE SK ا كد كز‎ SIS AS IS Se TSS SS DIE AS SIR BAS BI BIS BE BIS TK OS Be BS OK Ê ا‎ ee / 
/* PFOCESSOR DATA SEGMENT TABLE x / 
Ee DECLARFD PUBLIC. IN MODULE مت‎ 2س٦‎ Ge 
72 IN FILE +2۲ 2 > 1 
DECLASZ P2DS STRUCTURE 

(C PUSNUMBFP BYTE, 

VPSSTART RYTE, 

VPSEND BY TE 

VPSSPEESCPU BETES 

LASTSRUN BYTS 

COUNTER WORD) BA TERNAL: 
J EBL BQ EEE HE dee жож жеек жак жк кж док док АО ДО Желе ЖК кк к Аск КЖ ЖЕСЕ Лез ОЗ پر بد عبت یھ بد کچ بب‎ 
* GLOBAL DATA BASE DECLARATIONS x / 
/* DECLARED PUBLIC IN FILE “GLOBAL.SRC' 1 
نتم‎ IN MODULE “GLOBALSMODULE’ ٠ 


) STRUCTURE 


EXTERNAL; 


EXTERNAL; 


EXTERNAL; 


Bo 


MAXSCPUSSSSMA X F 8 


BYTE. 
BYTE, 
ВҮТЕ, 
ВҮТҮ, 
WORD, 
WORD, 
WORT) 


۲ 8 


(12/2) 570101) 


inm e 
WORD, 
Bafle) 


DECLARE VPM( 
(VPSID 
STATZ 
VP2PFIORITY 
7۲10 70 
EVCSAWSVALUE 
5 558 6 
8 9 


DECLARE 
EVYNTS 


ገ በ EE 
(EVCSNAME 
VALUE 
THREAD 


DECLARE 


STQUINCERS Bile EXTERNAL; 


NS ОСТ Лр (100) STRUCTUEE 


(SEOSNAME PYTE, 
SEOSVALUE WORT) EXTERNAL; 
DECLA F 
NRSVPS( MAXSCPU ) BYTE EXTERNAL, 
5 BYTE ZXTEQNAL, 
HDWSINTSFL®G (MAXSCPU ( EXTERNVEL, 
GLOBALSLOCK لام‎ ۳ EXTERNAL; 
/ 01 GET یش یں ری‎ ОА: ЖОК К ЖК ЖК АСК Ж ፍፍ ቻቸ ና AC E E كات عاد ع‎ / 
/* DECLAEATION OF EXTERNAL PRCCEDURE REFERENCES x / 
/** DECLARED PUPLIC IN FILE  ^LEVZL1.SRC^ p 
/” IN MODULE “LEVELISMODULE ” 7 
۷25088210158: PROCEDURE EXTERNAL; END; 
۲۰٠۷۶۰۲۸۲۰ 318907 1507ء‎ *= 
FETSVP : PROCEDURE BYTE EXTERNAL; 1 
TOCATESEVC : PROCEDURE (EVENTSNAME) FYTE EXTERNAL; 
DECLARE FVENTSNAME BITT: 
END; 
0000003525520 +: ROCEDURE (SEQSNAME) BYTE EXTERNAL; 
DECLARE تہ‎ BYTE; 
END; 
/ ۱ 1 77 بد بد‎ E BE d ee NA ARE اد‎ IS HE HE BEDE BE FE A ARIE SE IC ع كرا كز اه »ې یه عا كرد كز عي‎ AEE SE AE E رر بد مھ ماد بد یبد با‎ 
ys DIA3NOSTIC MESS AC ES M FVENTUALLY BE REMOVED) 7 
/=ጁ፡፡ MXTRACE MOX NOX MXTRACE "xxx MXTRACE sexes MXTRACE 2525 
ELS MXTRACE deste xk vic یلا‎ MXTPACE SE MXTRACE x< x ጁ፡ x< > MKTRACE WX / 
/* DECLARE 
ی۰٠٠٠‎ ٠۱۰۱۰۱۰۲ 707٣072771٦76 PREEMPT’ 13.19, °%"). 
/* MSGL?\*) BYTE INITIAL ISSUING  INTEZRUPTII”,13,10,°4°), 
ይር ሎጤ BYTE INITIAL( ENTEFING AWAIT’ ,12,13,°%"), 
ያት MS619(* ) PYTE INITIAL( “ENTSRING ADVANCE Eds ), 
رے رہہ ےہ‎ د۲٣‎ INITIAL ENTERING 77858160 FO? E ), 
ከ 1 BITE INITIAL (ENTRE ING READ FOP EVC: $^), 
/* MSG24U*) BYTE INITIAL( ENTERING  TICKET'/,13,12, 2^), 
/* MSG2508) BYTE INITIAE(^ENTEFING CREATESSEQ €^), 
ОШ с 1117 11718۰) ENTERING CREATBSPROC’,19,13,%°), 
/* MSG27(*) BYTS INITIAL(1@, “2NTERING GATESKEBPER N= 1 


/* DECLARE 
fe ٦٣٢٢٢٢7 
"s LF LITERALLY QAF; 


ee Thee ae MXTRACK err MXTRACE ***/ 
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ې هه Sa‏ 


Jem MY TRACK HECK MYTRACE eK MYPLACE wR VYTRACE Kr) 


۸ MEDS TS BS AS AS BK RE AS ጻ፡ 2። ጓ፡ و جوا‎ 2 HT HE OK OS SC AS SK AS 3 م2‎ AS AK ACTS IIS OK SK OS ME OK BK OE AS OS NESE መ ንክ ار‎ 
J” 2625552524 552, WE HERE FE IC IE DE FE كر‎ j SA EAS E MESSE AE HS SIS ME ACS ። ኣ። ።። j AS ።። EE 
jes ا‎ SKEP Eh PRCGEDUS 02 UM 22-24 0۹ 
JRR DE NE DK HE 2:5 NS 3= 335 3: 2:5 2,5 2,5 25 225 35 2ሎ 255 E A e o As Ss SE a a o -:ضر[ل هگ‎ VI 
/* e 00 RI TE ENTRY JN TO TT “OPERATING 7 
/* SYSTEM DOM4IN FROM TEE US Fe N eee oe > 


/* ACCESS POINT TO THE UTILITY/SERVICE ROUTINES AVAIL- */ 


/* ABLE TO THE USER. THIS ٦ ا ٢٢۳و 6ن0‎ TCE ٣٢ m 
/* GATE MODULE WHICH IS LINKED With ٢ ٧٢ IA 25 
/* IT IS TRE GATE MODULS WHICE PROVIDES TRANSLETTON ^ 
/* FROM THE USEE DFSIEED FUNCTION TO TEE FORMAT RECUIR- */ 
/ FD FOR TEE GATEKEEPER. THE GATEKEEPER CALLS THe 7 
/* DESIRED 0۱111 / 51٣1۷1) EES ae / 
/ OPERATING SYSTEM AGAIN PERFORMING THE NECESSARY "Eë 
/* TRANSLATION FOR A PROPER CALL. THE TRANSLATIONS A ETRE 
Zë INVISIPLE TO THE USER. TYE GATEKTEPPR ADDRESS IS n» 
/* PROVIDED TO THE GATE MODULE TO FETU ی))؛)‎ ፡፡ በ8... 2 
)مم‎ ٦ که‎ 
/ ۶ مر جب‎ 
/* THE PSRAMETER LIST IS BROWIDED 70171 - 001 ٧ ٢ 1101 701 1 
/* REPRESENTS NO FIXED MFANING, EXCEPT FOR "NI, =), 
La N FUNCTION CODE PROVIDED 3Y GATE x 
/ ٠ үт BYTE VARIABLE FOR TRANSLATION */ 
li WORDS WORD | ፳ / 
as PTE POINTER VL AME FOE TEANSLATION de / 
/ቾ Q 2 4 23: SEE E KEA لد ع عرد اد‎ Ye AERO ME SIM E tete oo xe sicat side te zi sese EE RE CR AER RE / 


GATESKEFPER: PROCEDURE(N, BYT, WORDS, PTR) REENTRANT PUBLIC; 


DECLARE 
(N, BYT) . 
WORDS WORD, 
PTR POINTER; 


/* 1-0 SERVICES ARE NOT ACKNOWLEDGED FOR TWO REASONS? * 
/х 1. THEY ARE CALLED SO OFTEN THAT DIAGNOSTIC OUTPUTS 
fa MOULD BE TOC CLUT Ia ٥٣ 5 
"s 2. THEY THEMSELVES P20DUCES I-O EFFECTS THAT 2 
es ACKNOWLEDGE THEY ARE PING CALLED. * 


JRR MXTZACE ex MXTRACT KR MITRACH xxx MXTRACE *ጆ። / 
JK MXYTRACK RRR MXYTRACE 2K MYTRACH ##ፍፍች MXTRACE Kar) 
/* IP N < 8 THEN DO} 

/* CH^LL OUTSLINE(GMSQZTDUE 

VES CALL OUTSNUM(N); 

ү CALL OUTSCEA ORO 

CALL OUTSCHAR(LF);‏ .ر7 

/* END; 

/ቾቾ። MX TRA CR HK MY TRACER RRR MYTRACE Fi MXTRACE ak) 
/ MXTRACE xnxx MXTRACE IKK MXTRACK #ፍ*ፍጆ።። MYTRACE Aa) 
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DO CASE WW /. 
COMUNI BYT.WOPDS); dë 
CAL Sw» USNCY(BYT); /* 
"DEED ሸከ ያንኪ ህሮ ክና 1 ) 3 ye 
Cw Ct ነከ መመን "1 )1 Ges 
ار‎ በ በ D RA SES 
CALL READIBYT, PTR); /* 
DENT CIWATESPEOC(PTR); /* 
CALL PRFEMPT( RYT ); 2 


ጅጁ ፳ ጁ #‏ عد عد ع 


3t 


^J O) Oi! i£» CA P9 (t ^ Zz 
SS CX 


im 

© MYTRACE Xxx MXTRACE Zei MXTRACE *Ue*x* MXTRACE ፍ*።/ 

&U* MXTRACE "xe MXTEACE 5x MXTRACE Naxx MYTRACE 5*x*/ 

: MU CT OUBSORAR(RYT); بر .تم‎ 

CALL OUISTINDB(PTR); De 

GALL OMTPSNUMCBYT); /* 18 * 

CALL OUTSDNUM(WORDS); /*11 * 

MALL INSCHBR(PTR); /*12 * 

CALL INSNUM(?PT2); /ቾ 15 * 
ለ 
ለ 


ሌታ 
Ki 
እ” 


De 
С “ 


ቢክ. .፡፡ ኤር C ند‎ 


E 


ie 36 3€ 3t ቫት ት ን 


CALL INSDNUM(PTEJ; /* 14 
በከር ከ ሚች MITRACE “ESF MXTRA 
EE ፡።፡ noU MXTRACE ww MXTR 
END; CASE */ 
RETURN; 
3ND; /* GATESKEEPER */ 


MEIN ens 
e me 
م تيه‎ de رال‎ sls Je ول ہم‎ ale ale 

፥ .. 


JPR QR GFE BREA a HS EH BE OE TE IE BE HERE AE EAE AK IR FE AC RS HE NE AE HE AC BE AE IE AE HEHE NE AK BE FE EAE OK SK AS AE AE HE X EOE OE 7 
(ОШО 242570 0 DE CE 22-84 */ 
[X -=M MMMM MM MMM MMM MM MM MMM MMM عله چو چو حلم عن حل حلم عن عن اسن لم‎ x / 
/* CREATES EVENTCOUNT FOR INTER-PROCESS SYNCHRONIZATION. *።/ 
1 ትን ፡ን፡ 11. 12. 10 9 IN TES EVENTCOUNT TABLE.*/ 
O O اال‎ 


CREATESTVC: PROCEDURE(NAME) REENTRANT PUBLIC; 


DECLARE NAME BYTE; 

/"*** MXTRACE *e*xe MXTRACE Fri MXTRACE 2x3 MXTRACE *=*።/ 
Zë MY TRACK wR MXYTRACE eK MYTRACE "RR وم دزم‎ 33 / 
ZELTE OUTS LINE CMSC21); 

/* CALL OUTSNUM(NAME); 

ALL CUTS CRA TCE); 

C LL OWTSC OAROLF); 

JRRROMXTZACE Fk MYITRACE Arsen MY TRACT KR MY TRACK RHA 
/*ኞ*ቾ፡ MY TRACE 3% MYTRACK RK MYTRACR ¥RAOK MXTRACE жох 


/* ASSERT GLOPRAL LOCK */ 
DO METLE POCKET (@CTOBALSLCCK .119)3 END; 


IF /* THE =VENTCOUNT DOES NOT ALREADY EXIST */ 
LOCATESSVC{(NAME) = NOTSFOUND TEEN DO; 
Zë CREATE THE EVENTCOUNT ENTRY BY ADDING TEE */ 
/* NEW EVFNTCOUNT TO TAT END CF THE EVCSTABLE */ 
EVCSTBI(FEVENTS).EVCSNAME = NAMES 
O E PVUPTPpS) VADUE = G; 
FVCSTPLiEVENTS).THREAD - 255; 


ae 


/* INCREMENT THE SIZE 08 7۶۳7 
EVENTS Zee I 
END: پر‎ 3 1 9 707: 
/* FULEASE 0177 21١ رل‎ 
SLOBALSLOCK = 9, 
RETURNS 
END; /ኞጅ ٢٢٣٣٧٢٢۷٢ ንንን እሲ ንተን ን ውጨ ٦ 


/*”ሯ556ች፡ፍ፡=።ች ችኝ ዛፍ ኣ፡ E SE EEN CHS ALAS ME BE AE HE NE SIE FS NE RE ኋ፡ ጓ፡ ።፡ ኣ፡ ቻ ጓ፡ ኣ።፡ሯ ፡። ፡፡ ፡ፉ ።። ፡፡ ፡። ኣ። ኋ፡ ጭ AS 2K E AS Dj de رع‎ 
Pn READ PROCEDURE ROWE 6-22-84 Ga 
ph A EE er = x / 
/* THIS PROCEDURE ALLOWS USERS TO PEAD 111 +10٦ 
/* OF THE SPECIFIED EVENTSCOUNT WITHOUT MAKING ANY رف‎ 


/* CHANGES. 4 POINTER IS PASSED TO PROVIDE 4 BASE TOA  */ 


* VARIABLE IN THE CALLING ROUTINE FOR PASSING TEE RTR 
/® VALUE EACK TO THE CALLING FOUTINE. E 
عاد هد بد ېد مد علد‎ de dee ጁ፡ jE ent EE RBS IC OES IE e ee SS جړد د د یبد‎ E ېد »ېد »ېه جات‎ 2 2F dolo بد یبد بد یبد مد بد ید بد بد بد یبد د‎ 


READ: PROCEDURE( EVCSNAMF, RETSSPTP ) REENTRANT PUBLIC; 


DECLARE 
EVCSNAME PUDE 
EVCTBLSINDEX RIED 
RETS¿PTR POINTER, 
EVCSVALUESRET BASED RETSSPTR WORD; 


/* SET THE CLOBAL LO 7 
DO WEILE LOCKSET(@SLOBALSLOCK , 119); END; 


JOR MYTRACE Fra MYT RACK UH ኮጀጥመልርጀጅ Xxx MXxTRACE **x*/ 
wR MXYTRACE xxx MXTRACE ፍ።ፍፍፍ ኮጀፐ=ለርጀጄ ፍፍጆችፍ MITRACE ٤٧ 

/* CALL -OUTSLINE(aMS a ٦ 

/* CALL OUTSNUM(BVCSNAME); 

/* CALL OUTSCEZAR(CR); 

/* CALL OUTSCHAR(LF); 

P*x** MXTEACE sees MXTRACE Xxx METRACH RK MXTRACE ***/ 

/*®®*®* MXTRACE Gee MYTRACE NxenxeR MXTRACE sas ርሽ P DOS 


/* OBTAIN INDEX */ 
FVCTBLSINDEX - LOCATESEVC( EVCS$NAME ); 


Zë OBTAIN VALUE */ 
EVCSVALUESRET - EVCSTBL( EVCTBLSINDEX ).VALUE; 


/* UNLOCK GLOBAL DO) 
3 LORS MOG = TE 


RETURN; 
END; /* READ PROCEDURE */ 


/* @4 | DR PERISH MEE BO siot sot siot tod sc xe ېد ېد بد‎ RR E КЗ OE eS aE aE aK BK aS aK AES / 
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)د د 


7 ۰ 
3t aa e 


56 


Mox 
III INNEN, OO 


x 


3 
3 


PAD, 


* AY AIT PROCEDURE 

pa NEE › መ .:ጩጩ መር ve ee ee ce 
/* INTER PROCESS SYNCHRONIZATION PRIMITIVE. SUSPENDS 

/* EXECUTION OF RUNNING PROCESS UNTIL TEE EVENTCCUNT EAS ` 
Zë 2EACHED THE SPECIFIED THEESEOLD VALUE, AWAITEDSVALUE. 
/* USED BY THY OPERATING SYSTEM FOR THE MANAGEMENT OF 

/* SYSTEM RESOURCES. 


J| este t siete ze eie »د ید یې‎ ole e پد ېه‎ te sede xe ې ات عد ې به اد‎ BCT x geo RR OK OK EC RE OR AE AK RENE aK a E e f 


" 


» we 


AWAIT: PROCEDUZE/EVCSID,AWAITEDSVALUE) REENTRANT PUBLIC; 


DECLARE 
AWAITEDSVALUE WORD, 
MENTES TD, NEEBBSSCHED, RUNNINGSVP,SVCTELSINDEX) BYTE; 


JE MX TRACE wa MYTRACT Arie MXTRACE جج‎ MYTQRACK 46% 
/*** MXTRACE Xe* MYXTRACFE Hx MXTRACE sexos MXTRACE Fax 
EN CDL OUTSLINE(GMSC18); 

Zén MXTPACE ک٧‎ MXTRACE *Nx* MXTRACE xs MXTRACE ож 
/*** MXTRACE **—-* MXTRACE see MYTRACE Xsx«* MXTRACE ፍቻ 


P OOR GLORE LOCK %/ 
DO WHILE LOCKSSET(@GLORALSLOCK, 119); END; 
NEXDSSCHED - TRUE; 


/* DETERMINE THE RUNNING VIRTUAL PROCESSOR */ 
RUNNINGSVP = RETSVP; 


ESPEC ET EVC INDEX */ 

BEICTBESENDER = LOCATESEVC(EYCSID); 

/* DETERMINE IF CURRENT VALUE IS LESS THAN TE 
AWAITED VALUE */ 

IF EWCSTBL(EVCTBLSINDEX).VALUE < AWAITEDSVALUF TEEN DC; 
/* FLOCK PROCESS */ 
YPM( RUNNINGSVP).EVCSTHREAD=EVCSTBL( EVCTBLSINDEX).TEE 
VPM(RUNNINGSVP).XVCSAWSVALUE - AWAITEDSVALUEZ; 
ህከ ከ  ። TLS INDO ኑነ) TES EAD = RUNNINGSTD; 
DISAPLE; 
PRDS .LASTSRUN = RUNNINGSVP; 
YPM(RUNNINGSVP).STATE = WAITING; 
END; /* BLOCK PROCESS */ 


ELSE /* DO NOT BLOCK PROCESS */ 
NEEDSSCUED = FALSE; 


ZG SCHBEULE TEE VIASN)Ae PROCESSOR  */ 
IF NEEDSSCHED = TEUE THEN 


CALL VPSCHEDULER; /* NO RETURN */ 


Ip OCK OSDOPAL LOOK 4‏ و 
ዘ ከርሮ O:‏ . 
RETURN;‏ 
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END; /** AWA TT ۰ ٦ 


/* Q 4 BDA REDE AE BEE HERE RE REDE BEE DE AE NEM OE IE BE BE AE Fk NE HE AN OS DAE EE EE RE EO OE BE OE EE AE ORE AC OE IS ېت عد عد‎ / 
/ ADVANCE PROCEDURE ROWE 6-22-84 a / 
/* A — — መጫ ፍመ — سے سے سے سے سے سے سا‎ 7 0007 94 - x / 
/* INTER PROCESS SYNCERONTZETION 621 511 1 Fr P 7:٠ % 
/* SPECIFIED EVENT HAS 000108771 BY ADVANCING/INCEEMENTING*/ 
/* THE ASSOCIATED EVENTCOUNT. =VENT IS BROADCEST 10 4 E 


/* VIRTUAL PROCESSORS AMM TINE O | / 
a ።።መመጨ>>.ር0>ሙ-. “፦>-፦.--፦--..-. ( * / 
* GALLS MADE DO, ZEIT LTE Së 
Se VPSCHEDULER (NO RETURN) p 
Je soles ROR Жез дез Жк ЖК ээк ЖКК ЖК: اد د سه ېت ېت ار جاور‎ eode sio په به پد ېت د ېت بد عزد بد‎ AEE OAE K ې »ېه ېد‎ eege A 


ADVANCE: PROCEDUSE(EVCSID) REENTRANT PUBLIC; 


К 
EET MERE UT NERDSINTR, IVCTENSIND +٥٣ 
FUNNINGSVP 15 CPU) BYTES 


free MYTRACE "x3 MXTRACE 5e MXTRACE KOK MXTRACE ***/ 

[*-* MYTRACE "Xxx MYTRACE sae MYTRACT HRI MXTRACE 99x / 
ж CALI OUTSLINE(GMSC19); 

Jew MXTRACE seAeex MXTRACE *x*e* MXTRACE Жжжж MYTRACE ***/ 
JR MXTRACE x MXTRACE RR MXTRACH عا عا‎ MXTRACE مغ‎ 


JP LOCK "FF GMABAL LOOK 7 
DO WHILE LOCKSET(GGLOBALS$LOCK,119): 7 


RUNNINGSVP = RETSVP; 
EVCTBLSINDEX = LOCATESEVC(EVCSID); 


EVCSTSL(EVCTBLSINDEX).VALUESEVCSTSL(EVCTBISINDEX).VT DERI 


NEEDSSCIZD = FALSE; 
NEEDSINTR = FALSE; 
Su RE ን. 
I = EVCSTEL( BEVCTBESINDEXODENTHESEUMD 
DO WHILE I <> 255; 
IF VPM(I).EVCSAWSVALUE <= EVCSTBLÍFVCTELSINDEX).VALUZ 
TEEN DO3/* AWAKEN THE PEOCESS */ 
VPM(I).STATE = READY; 
VPM( I). FVCSAWSVALUE = 23 
CPU = I / MAXSVPSSCPU 1 
IF SAVE = 255 THEN DO; /*THIS FIRST ONE 251 ٢ 
EVCSTRL(EVCTBLSINDEX).THAREAD=VPM(1).EVCSTEREAD; 
VPM( I ).EVCS THREAD = 256; 
I = EVCSTBL( HVCTSLSINDEX FP F RAD 
EAD} A ا‎ | 
ELSF DO;/* THEN THIS NOT FIRST IN LIST E p 
VPM( SAVE ).EVCSTHEEAD = YPM( 1 ).EVCSTH2READ; 
VPM( I ).PVO 11 ٠٦ 
I = VPM( SAVE ).FVOSTHREAD; 
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END; /* IF NOT FIRST */ 

IF /| CPU €» PRDS.CPUSNUMBER ) 
HDWSINTSFLAG( CPU ) = TRUE; 
NEEDSINTR = TRUE; 


END; 
ELSE NEEDSSCHED = TRUS; 
END; /* IT AWAKEN */ 


ELSE DO;/* DO NOT AWAKEN THIS PROCESS */ 


NIE‏ رن 

I = VPM( I ).EVCSTEREAD; 
*ND;/* IF NOT AWAKEN */ 
D3/* DC WEILE */ 


IF NEEDSINT?F = TRUE THEN DO;  /* у SC INTF <a | 


kkk MX TRACE 


3. د٤‎ 
ያነ cay 


мы SS 


[ЖЕ MXTRACHE FHSS MAETRACE REY MXYTRACE 
ዜማ 011! ተመት ላ متس مهس‎ MYTRACE 
ን CALL OUTSLINE( @MSG17 ); 

МО تت‎ METAACH “RR MATRACE MITRACE 


Jerre MYTRACE Ik MYTRACE SHAR MYTRACE Bexar 


à 


DISABLE; 
OUTPUT{PORTSC4A) = 883; 
ከ ከከ ከ ን ظ9‎ ٠ 
OLTPUT POSTON) = PESSET; 
ENARLE; 
END; /* NEEDSINTR * 
IF NEEDSSCEED = TRUE TEEN DO; 


ሰዴ 


DISABLE; 
PRDS .LASTSRUN = RUNNINGSV?; 
VPM(RUNNINGSVP).STATE = READY; 
CALL VPSCHEDULER; /* NO RETURN */ 
END; /* IF NEEDSSCHED */ 
P22UNEOGK TER GLOBAL LOCK */ 
و‎ LOOK = 0; 
RETUEN; 
END; /* ADVANCE PROCEDURE */ 


te a! ې را سه‎ Le ats aly a! , ده رلو دل عۀ‎ ale 0 ፥ دلاى دږ وا‎ de 5] የ ; را مدا‎ <i AN 
/*@581 03024 5 DiS I DIS IS SIE BS DIK AS IS BC IS OK TAS SIS SS OE SS Ths AS CS SL TS OE STIR ፡ጾ ጻ፡ ጓ፡ 24465025026 26202 26: 
ur 


ROWE چ8‎ 22-64 


PROCESS LEAVY 


/* PREEMPT PROCEDURE 


IE TS PROCEDURE AWAXENS- ^ EI PEIOERITY 


ZS TPE CURRENT RUNNING PROCESS IN THE READY STATE AND 
۰ی‎ ۱۱۱۷۶ ۱9۰۷۷۳۰۰ ۹۰٠۶٦ ٥۶۶۰۱۱٠۰٠6 THE HIGH PRICRITY PROCESS 


.ሸ 700.9 7 ITSELF WEEN FINISHED. 


22 1١1 177 I5S FE On TEE MCNITOR PROCESS, 
* MAKE IT READY WHEREVER IT IS IN THE VPM. 
/* ING CODE DOES NOT TAKE ADVANTAGE CF THE FACT THAT 

1 በን IT 1S THE PRIRD ENTRY IN THE VPM FOR EACH 


TEE OL LON 


፳ ፳ # ጅጁ 3t Xo 


3 28 


IE Eu PROCESSOR. 


[*-——————-——-—-———------------2-2---------2-2--2---------2-----2---- 


Feo x nore de e کر یي كل عن‎ 


ES CES. MADE ٦ CUTLINE, IUE 


/ E IAS E AE SK TE j XS AS EME e E I AOR KOKO, BE AE NE AS ماد‎ SIC TE Oe NE NERS ید‎ 


PREEMPT: PROCEDURE( VPSID ) REENTRANT PUBLIC; 


ag 


0 261۸88 )۷ ۶10,52۸8 608 57,5) ۱ 11111 


* MXTEACE 28 / 
MYXTAACE "xXx MY TRACT REE MYTRACE SKK MYTRACH 226% / 
CALL 001۴511١3) ያ ን ርር 
ee MXTRACH HM MXTRACE ***/ 
"UK MXTRACE week MYTRACE ***/ 
IF VPSID <> @FEH THEN DO; /۸ NORMAL PRKEEMPT */ 

/* STARCH VPM FOR INDEX FOR ID */ . 
STArCESST = Q; 
pO CPU = G TO (NES$RPS - 1); 
SBARCHSEND = SEARCHSST + NRSVPS( CPU ) - 1 ; 
DO INDEX = SEARCESST TO SEARCESEND; 
IF VOM( INDEX ).VPSID = VPSID THEN GO TO FOUND; 
END; /% DO INDEX */ 
SEARCHSST = SEARCHSST + MAXSVPSSCPU; 

END; /* DO CPU */ 

/* CASE IF NOT FOUND IS NOT ACCOUNTED FOR CURRENTLY */ 

FOUND: 

/* LOCK THE GLOBAL LOCK */ 

DO WEILE LOCKSSET(@GLOBALSLOCK, "T END; 

/* SET PFEEMPTED VP TO 7 * / 

VPM( INDEX ).STATE - READY; 

/* NEED HARDWARE INTR OR BE-SCHED */ 

IF ( CPU » PEDS.CPUSNUMBER ) THEN DO; 
INDEX 2 DE /* DETERMINE RUNNING PROCESS */ 
DISABLES 
PPDS.LASTSEUN = INDEX; 
VOM( INDEX ).STATE = READY; ٭/‎ 50۴ 0٦٠٣ 
CALL VPSCHEDULER; /* NO RETURN ቾ/ 
END; 

FLSE DO;/* CAUSY FARDWARE INTERRUPT */ 


т 
“ж ا‎ 


(eps MXTRACE Sage ٧ ۹)) 2م‎ ٢ ۶ی‎ ٦ 
/#=። de is de 


/፡ z 


/**%* METRACE ره‎ MES 
/ቾ።ች MITRACE ann 


ga MYTRACE sete MYTRACT Se MXTRACE S482 MXTRACE / 
عم‎ METRACE x METRACE 28k MYTRACK eR MXTRACE, #2 


/ 

CALL OUTSLINE( GMSG17); 
MXTRACE s3ex* MYTRACT RARER MXTRACH ERA MYTEACE ***/ 
ACE / 


EDWSINTSFLAG( CPU ) = TRUE; 
DISABLE; OUTPUT PORTS S мб; 
CALL TINEO 
22" POPT$CA ) = RESET; ENABLE; 
END; /* NORMAL PREEMPT */ 
ELSE DO; /* PREEMPT THE MONITOE */ 
/* SEARCE VPM FOR ALL ID °S OF 2755 */ 
SHAXCHSST =e, 
DO WHILE LOCKSSET( GGROBALSLOCK 119); ENDS 
DO CPU = @ TO (NRSRPS - 1); 
SEARCESEND = SEARCHSST + NRSVPS( CPU ) - 1; 
/* SE ALL INTSpLAGC P Cr ا‎ ЕК ООР S 
IF PRDS.CPUSMUMBER <> CPU THEN 


935 


pr 
"x MYTRACE “8% MXTRACE +3 MRT OR E aS 


/* 


BDWSINTSFLAG{ CPU ) = 1 
DO INDEX = SEARCHSST TO 5 882025581119 
IF VPM( INDEX ).VPSID = VPSID TEEN 
V2M( INDEX ).STATE = READY; 
END: /* DO */ 
SEARCHSST = SEARCHSST + MAXSVPSSCPU; 
END; /* ALL MONITO® PROCESS SET TO READY =/ 
/* INTERRUPT THE OTHER CPU” S END 
ZRESCHEDULE THIS ONE 27 
Ix MXTEARQE cXxxes MYXTRACE XXe MXTRACE xxx MXYTRACK wax 
/** * MYTRACE Sxeek MYTRACE 5X MXTRACE sexes MXTRACE ver) 
/ CALL 00505 11 1 C GMSGNED; 


КОО MITRACE FEN MYTRACE مود‎ MXTPACE HH METRECE / 
än MITRACH FR MXTRACE SKA MXTRACE Kara MXTRACE **ቻ/ 


DISABLE: 


OUTPUT( PORTSCA ) - 80H; 
CALE LIME (i); 

PORTSCA ) = ZESEL;‏ اد 
ENABLES‏ 

INDEX = RETSVP; 

DISAPLE:; 


PRDS.LASTSRUN = INDEX; 
VPM(INDEX).STATE = HEADY; 
CALL VPSCHEDULER; /* NO RETURN */ 

EL, /* ELSE 

/* UNLOCK GLORAL MEMOPY */ 

КООР 51ССК = д; 

RETURN; 

END; /* PREEMPT PROCEDURE */ 


/*9711* SIC SONO NU Se ste Ses pe suc uc NISUS ii EE 7 
zs шава PROCEDURE ROWE 6-22-84 4 
a کد پا‎ a ፎ= e m i መ ብ ው U ው መ 7 
/* CHEATCOR CF INTER PROCESS SEQUENCER PRIMITIVES FO? USES */ 
/* PROGRAMS. CREATES 4 SPECIFIED SEQUENCER AND INITIAL- */ 
/'* IZES IT TO 0, 3Y ADDING THE SHOUENCER TO THE END OF THE*/ 
/* SEQUENCER TAELE. ER: 
38 س ت ت ت ا ا ا اا ااا اا اا ا ا ااا ااا اا اا ااا ااا اا اا ااا انا ا ات ت ت تات ت‎ 2 / 
CALLS MADESTOS OUTSLINF OUTSCHAR x / 
ү CUTSHEX = 


pa E EE EE EE EE EE Il: ال‎ 
CREATESSEO: PROCEDURE(NAME) REENTRANT PUBLIC; 
DA NA MN 


/* ESSERT GLOBAL LOCK */ | 
DO WHILE LOCKSET(@GLOBALSLOCK,119); END; 


«1.6 OU MATRACH Sess MXTRACE دی‎ 


ex MX TRACT *ፉ* 
see MYTRACE wR MXTRACE ok MY TPACE Жжжж, 


/ 
[X MXTPACFE 
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/* CALL 00511 311 اا‎ 

/* CALL CUTSH=EX(NAME); 

/* CALL OUTSCHAS (Geen 

/* CALL 001503 TE 

/ቾቾቾ MYTRACE ዖጆ*ቻቹ፡። MYTRACE FMR MXTRACE ።፡።ፍ== METRACK ar / 
JRR MY TRACK WRK MYTRACK RRR MXTRACE RX METRACH Fu) 


IF /* THE SEQUENCER DOES NOT EE 
LOCATESSFO(NAME) = NOTSFOUND THEN DO; 
/* CREAT® THE SEQUENGERSENTRY БҮЛЕ О لاگ اا‎ 7 
/* NEW SEQUENCER TO THE END OF THER "ی٦‎ 
SEOSTARLE(SESUENGERS ۵7٤ = МАМЕ; 
SEQSTAELELCSEQUENGERS ) ክርን ጠበስ LU 
/* INCREMENT NUMBER OF SEQUENCERS **/ 
SFOUENCERS = SEQUENCERS + 1s 

END; /* C2 SATS 16٨ woe Ou IR 

/* PLEASE THE GLOBAL LOCK */ 

GLORALSLOCK = @; 

RETURN; 

END, E EE 


/ቾሯ” EARRA HORO KAE HE RAS FE IK EAE AE AS EAS BIE SS BE AS OE AC IE TE AC AE IS e de e de e SERS ری‎ EE EE 
/* TICKET 27 20¥E 6-22-84 4 
ےھت ...سس سے جو‎ M 
/* INTER-VIRTUAL PROCESSOR SEQUENCER PRIMITIVE FOR USER */ 


/* PROS2AM, SIMILAR TO "TAKE A NUMBER AND WAIT. RETURNS */ 
/%* PRESENT VALUE OF SPECIFIED SEQUENCER AND INCZEMENTS TET*/ 
/* SEQUENCES. A POINTER IS PASSED TO PROVIDE A PASE TO A */ 
/* VARIABLE IN THE CALLING ROUTINE ТОҢ PASSING THE RETURN */ 
/* YALUF BACE TO THE CALLING TOUR R 7 
Sie ee ame em om em ea oe oe os oe es ee ee ee a 7232 UU S کے کے سے بے کے سے‎ ለ ረ . ላ . .  . سے‎ 2 Ge 
/* CALLS MADE ۶ +0 Ss 
fa SHE NE AE DE AS TE IE EE BS OIE 1 E jS AE NS SE ፍች ፡ ፍፍ ጁ X E مد‎ ZK > لت یاد مان‎ x FE E E XE AE مېا مېا کد ېن‎ OIE IS OK EOS KS NE a s 


TICKET: PROCEDURE( SEOSNAME, RETSSPTR ) REENTRANT PUBLIC} 


DECLARS 
S EOSNAMZ BIDE, 
SECTBLS INDEX RYTE, 
RETSSPTR POINTER, 


SEQSVALUESRET BASED RETSSPTR WOED; 


/* ASSERT 210281 LOCK رر‎ 
DO WHILE LOCKSET(@GLOBALSLOCK ,119)5 END; 


"ek MYTEACE Gexxoek MYTRACE ا‎ ۰٠0۸۳۰۷۷۷۷٣٣۷٢٣ 
d'SS See MXTRACE EHI 5: MYTRACE AS MXTRACE 2= 2፡5። 2፡ 2 MXTRACE 33፡3 / 
/* CALL OUTSLINE(GMSG24); | 
de MXTRACE txi MXTRACE atr MATRACE 3 ለክ 

жи MXTRACE ek MITRACE ب ۱۷۰ب‎ 


95 


N us وو‎ 
a` 7' £x 


S 


y- 


Vo ES E 
* 4 4 


ን; 
EAS AS እኺ.፡ቄ፡፡ oe 


/* OBTAIN SEOSVAME INDEX */ 

Seer els ime = LOCATESSFO(-STOSNAME ); 

/* OBTAIN SEQUENCER VALUE */ 

SHOSVALUNSHE? = SSQ@STASBLE( SEOTBLSINDEX ).SEOSVALUES 

/* INCREMENT SEQUENCER */ 

SHOSTAELEe SEOTBLSINDEX ).SEOSVALUE = 
SEQSTABRLEF(SECTELSINDEX).SEQSV^LUE + 1 3 


 ጢፕ እኪ К TRY GUORAL LOCK */ 


G@LOBALSLOCK = @; 

RETURN: 
END; ame ከ ቢር CCEDURES 7 
EES" SEELEN E EE لل لو لل‎ EE AER د‎ e عاو‎ AS ORO de se e e de de de e de de ۴ 
AB CRRATESPROC РЕОС E HOWE መረረም 


/* THIS PROCEDURE CREATES A PROCESS FOR THE USER AS 
Jr SPECIFIED FY TEF INPUT PARAMETERS CONTAINED IN A 

Pee eSTRUCTUSS IN THE GATE MODULE. 987 PARAMETER PASSED 
meets ^| PRINTER WEICH POINTS TO TEIS STRUCTURE. 

ОО INGO CONTAINED IN THIS STRUCTURE IS: PROCESS ID, 
EE EOCESS PRIORITY, TEE DESIRED PROC STACK LOCATION, 
¥ AND TIE PROCESS CODE STARTING LOCATION WHICH IS 

ሸበ О ELEMENTS: THe IP REGISTR (OFFSET) AND TJE 
EOS EYSISTER- (CODE SEGMENT). 


pa E nn — ——— ee ee wg we ee im ملو‎ ር: ee ک2 سے مت ہم سی‎ 
/* CALLS MADE KE 0 E 
[JRE RE AE AR BE BE EAE HE OEE He ን. ርጋ pecu c ron 2: 2, 2 5 2= 

rennen een یڈ جم روہ‎ ux i Тт ` ^ ' e 


MNTATES PROC: PROCESDURE( PROCSPTR ) REENTRANT PUBLIC: 


DECLARE 

PROC$PTA POINTER, 

PROCSTAELE BASED PROCSPTR STRUCTUEE 
PROCSID BYTE, 
PROCSPZI BYTE, 
PROCSSP WORD, 
PROCSSS WORD, 
PROCSIP WORD, 
۴ 5 WORD, 
PROCSTS UC 
PROCSES WORD); 


DECLARE 
(PS1, PS2) WORD, 
TEMP BY De; 


DECLARE PROCSSTACKSPTR POINTER AT(GPS1), 
POC > STAC BASED PRPOCSSTACKSPTR STRUCTURE 
(LENGTH(2FEE) BLE 


RETSTYPE WORD, 

RP WORD, 

DI WORD, 

SI WORD, 

DS WORD, 

DX WORD, 

0 WORD, 

EX WORD, 

ES WORD, 

IP WORD, 

CS WORD, 

FL WORD); 
٭٭٭٭/‎ MXITEICE Nao MXTRACE ٭ جیب‎ MITRACE we METPACE 

Cx MXTRACE صا‎ MXTRACE RK ہج وع رہہ‎ sues MY TRACE 

/* CELL 00175111 ات‎ 26). 
/*** MXTRACE mex MXTRACE oo MXTRACE “xx MXTEACZ 
pu METRACE "(x MXATRACE NR MATRACE ozo ہزم رج 0رہ‎ 


* / 


219 نا" 8 1/15 1 


ا 2 


PFOCSTARLE. PROGE D 


ICCSTABLE PROC ns ЕЕ 


PROCSTSBLE PROG ٥۳۴ 
PROCSTARLE.PROCSCS; 


/*SET IY FLAG (ENAEZLE 1۷1۹ ٧۷١ 


TO SET UP PROCSSTACKSPTL 
DROSSTAFLT.PROCSSP - 11ER; 
PROCSTABLE.PROCSSS; 


.۲ ۷7 
‚EP = 
.DI = 1 
.SI = ð; 
„Эз = 
‚Di = A; 
.CX = O, 
„АХ = Z; 
BX = 1 
lo = E 
.IP = 
CS = 
.FL = 


200 r 


/* 
551 
2 


= 


PROCS Sr Aes 
0ء7‎ ٤ 
PROCSSTACK 
PROG Sos Gre 
ን ከ ከ ከከ 
POCOO TECK 
PROCSS TIOE 
7 0 F 
PROC SIRE 
PROCSSTACK 
PROC SST PACK 
PROCS SOE 
PROCSSTACK 


ANSET CLORAL LOCKES 


DO WEILR LOCGKSEFT(@@LOPALS OD PBI) S EK 7٦ 

IF P2DS.VPSSPFRSCPU < MAXSVPSSCPU THEN DO; 
TEMP = PRDS.VPSSPERSCPU + PRES. VPSSTART; 
VPM( TEMP ).VPSID = PROCSTA3LE.PROCSID} 
VPM( TEMP ).STATE = @1;/* READY */ 
VPM’ TEMP ).VPSPRIORITY = PROCSTARLE.PROCSPRI} 
VPM( TEMP ).BVOSTH FS ንንን oS. 
VPM( TEMP ).EVCSAWSVALUE = 9; 
VPM{ TEMP ).SPSREG = PROCSTABLE.PROCSSP - 1A; 
VPM( TEMP ).SSSREG = BROCSTERL +ب+ + + پپٰ‎ + 7٦7 
PRDS.VPSSPERSCPU = PEDS.YPSSPERSCPU + 15 
PRDS.VPSEND = PRDS.VPSEND + 19 


2 


NESYPS{ PROS. .CPUSNUMBER ነ) = 
NRSV?S(PPDS.CPUSNUMBEF) ፦ 1 
END; /* DO */ 


LM E TAE GLORAL-LOCK #/ 
0 ۶ 8 ۰ 2; 
RETURN} 

END: /* CREATESDROCESS */ 


JEQQ GERRI AE Ae NC sete stet sex niox پد ېه یړ کوت‎ e dek پو‎ deene hee dee de ee eege ee A 
ےہ‎ / 
ale 7۷ St gru ves ምሥ ሥላ ae 
y y + == — eye 
te 0 ۳ 8 E ከ ዘር ጋ #8 
Jo مل‎ / 
AN ee w -፡ Q s es ee mmm Q s Ó h s a Ó w ብ፡696 aD ay ab aD aD e aD aD am a aD an an aD an an ee ee ee oe wawa A A s سے‎ O GEN eee ee s سے عتت‎ / 


AS A CHAR FROM TEE SERIAL PORT. وت‎ 3397 
ا ا‎ ET IS RESPONSTBILTETY OF USEF IN THIS 0/55 da 
ቢይ ከስ ከሠተ ጥጡ TO SYRIAL.PORT VIA SRCSO1 DOWN M PROG IAM MAY 5 
NOT BE ACCEPTED. x 
ጠዜ፡፡ሽ፡ ስቭሽዚ PROVIDED 2Y USER SO HE CAN BE RFTIENET TEE ° 
me CHARACTER . ts 
/ ee ee یی‎ cm ca c 0 72 Es 
MATES MADE TO: PECVSCAHR á 


a A IN OSA AS E E e EE E E BE SIE E E AL EE E IE E FE E KF KE ፳፡ ፳ = /‏ ير 
PRE MKYTPRACK WRK MY TRACK ws MYT RACK Fra WXTRACE wae /‏ 
ይከ | የስካር ceat MXTRACE seres MYXTRAQE HAR MXTRACE Gë /‏ 
ner «= PRCCEDURE | RETSPTR ) REENTRANT PUBLIC;‏ 


/* DFCLARE 
/* RETSPTR DOINTER, 
/* INCER 28581 RETSPTR 71 


ES DISABLE; 
Ай ٠۰٠۰۰٠٠-۹۹۰۰ ٣۷۰ ہ٣‎ 
E ENABLE 


e RETURN: 

/= ہے رڈ */ END:‏ */ 

EL ۲۶۹۰۷۷۰۱۷۰۰۰۰٦ RACE ww MXTRACE *%“*%3* MXTRACE aiu) 
EL UL ወ EINECS CSS MET AACE MRK MYTRACE * 


/ 1D G2 EEK AE ENE BE RES A SE A د‎ DYE DIE DK DK HE AE AE DHE A AR SE BIE DK BENE IK BIC SCRE AS TC AE AE AC AE AR E EE ISK jE 2 2 2F 2F » 
- INSNUM PROCEDUGE ROWE. Oz o. 0 
A ሮሮምሮጵጅጵሮጵ ም A e e سم سم مرموته ما‎ ጩጨ a a ጩጩ <፡፡ ጋ ' 
ELS ከር 1:011 CTAR PROM TSE SERIAL PORT, EXAMINZS 
AOS PR EY FE TN THE SET Ç. Si HEX 4ND FORMS 
Vom! Bi ee varus) Seco VALID HEX DIGIT IS BCHOED TO TIE 
7* CRT. IMPROPER CHAR APE IGNORED. NC ш. "5 A 
یٹ5‎ 5۲۷۱٠۱٦۰٦۷١ GET IT FIGHT THE FIRST TIME. 
(eno eA eee ال‎ LY ACCESSING THE STRIAL PORT VIA 


ን መሼ ንጋ ርን. 
€ 7٨ en 


4د ےد L‏ 
د په cr”‏ 


FROM THE MDS SYSTEM A‏ 067:310 1۳۷۷۷۳۱۸0۰۶7 55۳۷کت 
INPUT MAY NOT BE ACCEPTED. A POINTER IS PASSED PY TEE*‏ */ 


ASISTE SO TEAT BE RETURNED TEE CHARACTER. 


# 


e ex ኀ ` PT 
واو سج رح ری تہ هو‎ > 


ze 


we عاد‎ 

My“ Qum መመ” emm mmm سب سب‎ a  - መመብ-”ሽ፡›› کت‎ ri مس‎ mmm سب سے مسب‎ cime G سے سه سے سے‎ mmm سے‎ Y 
> CALES | ADE TOS IN A Gë 
| "NM 27 / 

ተውና > - ae 2-31 ا‎ ` 2 y. - ` - - a's ` e 
ye ne ጓ፡ ጓ፡ 2 x: al A scc ы 4 መ ር لع مم مرحم‎ e SE 35-5 S XS > > با پل یا‎ ES Le ale 2 ale Së E xe er اپ را را‎ = Kee 25 ns. / 


S IR ROE MXT2ACE 2 2 MeL hee tl ጓ፡ ጓ፡ ሯ። ፲፡ = MXTSACS HE FR HS LUN Mi Tahoe رر ا کہ‎ 
سر‎ METRACE HREM MATRACE #ፍ#ጻጭት ከደጥጀለርች ፍፍፍች MATRACE #8%/ 
/* INSNUM: FRCCEDURE ( 6 ول‎ T Eee 

[x DECLAPE 

2 EE POINT h; 

Ke NUM BASED RET Pr E 


ү DISABLE; 

т NUM = INSHEX; 

e ENABLE, 

/ RETURN; 

* END; /* INSNUMEZZ 

225 55220: MX TRACER ھت نین‎ MXT-ACF ARNGUX MXTRACE TEE WTR hoa 22:6 
жж MY TRACE SFr: MITRACT مس‎ MIR AG mamma ٢ للا‎ 


Z 4 % AE EAE AE AEE MERE IE AEE EAE AE HE ALA HE NS HERE DE DIE AE AC DE IK ALAS AE NE ME I AE ДАЛЕ ЛА ЗИ DK jS I Df DR EIL a‏ 7 1 5م 


Jee dee د ته كيد‎ AE NIE بد یبد بد مد اد مد بد بد اد‎ SID ST BO BK AE KS DICED ek eech BK a eeh ee ere پد‎ k kok / 
d OUTSCHAR PROC PELE E ROWE 6-22-22 e 
Je > 4 
“== ጨ- سب‎ v v v -. سے کت‎ gë سے سے سے سے سب ست‎ a q e gp q ی کت < سی‎ emm gg سسب‎ s خم مت نس‎ wm eg “vs / 

/* SENDS A BYTE TO TECE ۰ / ٣٣ ٠ 

/ 
WE lee exar aue — 0 — مته‎ ل٧‎ — s 0:1 PE ee >: ү 
/* CALL MADE TO: اك‎ 201 
7 2፡ ጃ፡፡ 5 2፡3፡ ጃ፡ 3 216 ک2 ک2 ک2‎ 2)٤ 2٥م‎ A sie 2፡5 22/5 asic six Be sie cee oe نا ا‎ a Se se yo se See o er a ee 
i š / 


f MX TE A CE cse E MXTEA CF ee MXTRACE Bann 
7/٦ MY TRAC 3 AS MXTRAC Y I اد يروا‎ MATR A Ca E M 1 
/* QUTSCHAP: PROCEDURE( CHAR ) REENTRANT PUBLIC: 


т DECLARE CHAR BYTE; 


» DISABLE; 

Kë CALL SENPÉCEAR( CHA! ); 

⁄ ENABLE, 

7 КЕЛТ 

/* END; 

pasas MX TUAE MANN MXTRACE 2 2 2 META AC ک5 ک2‎ 2 2፦ M X ۹٩ Se Zen d 
JR MATRACE SHES METEACE xoe MIT AG Ee MAO ከየ 


E 


٤ کک‎ ate دل رل علد‎ ed 3 SE 32 aly a's ate ale aly ate whe ale a's ale abe al, 3: ሁጅ 2: e ale ale ate ale abe sie ale ate ate abe 2 Se pec a's Si ate ate ate al ate als ate ate ate ate a's 
2 0 7 کړس‎ OT? کے کے کے‎ DINA IO IA IA IIA ICAA NUS کړه وړت ړخ کړس کړے‎ ግፍ ግ* ወየ” ማ4* “ነሦኞ бү» gtx er e dr "P SES > “ 2 درت‎ бүз Фу as کړی‎ ns SS ER San 


A 
/*  QUTSLINE PEOCEDUER 302 ይ- 22-84 Í 
- A 


/* USING A POINTER TO A DUFFER TE We ہپ‎ 1.7 A 
/* LINF THRU THF SERIAL PORT UNTIL.AN “2° IS ENCCUNT S25 Dee 
* 02 80 CHARACTERS IS REACHED--WHICE EVER IS FIRST. CR’S*/ 
/* AND LF'S CAN Be INCLUDED. VA 


* CALLS MADE TO: SENDSCHAZ a 


/ 
5» ' 1 a . ' E e a ' ٩د په‎ awe al te ای‎ te ale ' | ' ' ' à له‎ to ` ' la y! Le <° 5 e wl ' 
شی پور دہ سس‎ 222521205 AS BS BK BK AS ጁኖ ጁ፡ ጓ፡ጓ፡ 5፡ ጻ፡ ጓ፡ ጓ። ጓ፡ iS RE AS AR RIA ER A AAA د تہ‎ / 


ick MXTRACE *ፍ።ች።። ዘጀጥዋ፪ጳ0ርኛ Xoeee* MYTRACE ara MATRACE ጆ*#/ 
سه سه‎ MYTRACE ENEE MXTRACE ۰2ء" کت‎ x ን ር 22 MXTRACY WR / 
ООСО е ТЫ: PFOCEDURE( LINESPTE ) FEENTzZàNT PUBLIC; 


0 تم 

SE 8۹۶۹9 ከነ 98 ٠ 

B 14 sp LINESPTR (22) BITE, 
። MERITE; 


pe DISABLE; 

DOTI = @ TO 79;‏ وھ 

* IF LINE( II ) = “%° THEN GO TO DONE; 
ai ህከ ህክ ОПЕ DENEC TI ) و(‎ 

0 END; 

A DIS ENABLE; 

yee RETURN, 

/* END; 

JRR MYTRACE عو ای دہ اد‎ MXTRACE وہ وید‎ MYTRACE a al MXTRACE MUR / 
ELM 0: ብዚ ለ፪ ማታት MATRACE HH MXTRACE ws; 


ы? 


' ፥ 1 1 ፥ i à 


51ቃ ሓ.፤› ጋ alo ye nto wl e ale sf‏ درل را ale als she ale ale abe ala ale ale ale ate Se ale‏ رت .لي را رېه als sto ale ate ats ate als‏ صا راپ ale we we «lo Be ate o's whe ale ate ale als aly ale‏ حا 
eps A 2 2^ /‏ م > eye "4 AX‏ کچھ 7 `> ”7“ `“ 25 >~ ግ” +» ey»‏ سا 275 *“ کړم Kë ma ы ы oy 5, 2 AS Zr eu +» Ыы “ሮ 2 y As 27 AS 2፡ 4," A> As Me Ss‏ ېد > م27 2e 1 1 0 4 ” ` 2: ЫЫ‏ / 


a WD PROCEDURE ROWE о = ከ 


PUTS رن‎ VALUE NUMBER THRU THE 5 2141 7 “yy 


ፌ 


E CALLS DE TO o OUTSET 
/ ALLS Me 5 HE т 
J FE FERE дело ME TRAE RE IR BE BEI BE BK HE ERE BE OK BEI ЭК ېه‎ BE BIE NCA NE OK OK DAE RE REE OK OK SE SE Ne a aE RE a Re ae Se aie ate aK ake ae رعلا‎ 


$5.8 
کے 


ህዳ. Er Se 
کت‎ MX TRACE SS MYTRACE SK MYTRACE Ekai MYTRACE موم‎ 


Bu Y 


/* OUTSNUM: PROCEDU2E( NUM ) EEENTEANT PUBLIC; 
E DECLARE آ79‎ 


JR DISABLE; 

ук CALL OUTSHEX( NUM ); 

ENABLE;‏ مھ 

7 RETURN; 

/* END: 

a eee لل‎ ١٧١ Tae ٣۷٢٣ cee MTR ACE Sie / 
مسسیا‎ MX 011 EUN Ас MXTRACE EE ич MXTRACE መጣ: SM MXTRACE "AS / 


to we <t “2 whe «! ېي به د‎ ۹ ) "EP 1 D E d 1 
MEY DG DAE EE AA A 


| 2 
* — INSDNUM PROCEDURE Hou 65-22-34 7 
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PS سس‎ 


ریو ےر 


BE BE AK ALAR AS AÛ DF A XE Tj FF DF XE E ROR? Bh Bee RS کو‎ E FR AE и E E E ا‎ 

MXTRACE wk MXT3 ACE >x MITU PC ٥٠٦ 

MXTRACE SAR MRT Pe > r ee 
( 53225283 ( REENTRANT PUBLIC; 


POINTER, 
“CRD, 


L); 


atg ais 


ہی 


MXTRACE 
MXTRACE 


MXTRACE er ۳ 
MPR ACP r XA 


HE SIS AED AS IS SIS BS AL AS AK AS AE كز‎ Ye BL IE OE SK AS KE OS AS AS AF AF AS AS ATS 
PROCEDURE ROW: 
VALUE NUMBER VIA PHERS RE 5. 
OUS DU 


ote ste sts ofc ste ae ste se ale sie aie oie aie aie ais AE E EEE NEDE NS E SEINE EA LL ٦ 


a ate ale 
e de 


/ هه اد 


MYTRACE wek MYTRACE veka Ra 
MXTRACYE stas Mee 
LNUM 


METE RON 
MXTRACE 
۰۶۶ ۴ 


WORD, 
BYTE; 


DNUM ); 
SEND 23 
E 
SEND ); 


MXTRACE zapen 
TK AE >< x< > MXTRACE MEAT IE 31 


MXTEACH 
ovo] XR ANDE 


wl, 2 slo 
A > 

ate ale ale 
Am eRsWnNS 
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š 


27 2% 


0 SS 


00 ی۶۶۶۷‎ ۵۶۳ 
WORD; 


E 2 AK NS 


— መ emm ፕሇ بب‎ ጨመጮ “-ሙ ‹ mm emt ee م۴‎ БЫШЫ} f q F مب‎ eee Q m Q € q ae eee سر‎ eee +e 


PROCEDURE ( 


DNUM 
CATO SHE Xt 


he MYTRACE Mama 
i MATRACE 


zez MY TRACE #ፍፍፍፍ 
/*** MX TRACE 


/* INST 


/* DECLARE 

$ RETSPTR 
/* 
* (E, 


SRM SEI 


ЇЙ) 


* D 
/ s: H 
፡ 6. 
үт L 

* — DNUM 
/* 
» Ze 

x END; 


O 10.‏ / 
ان وله سوه وره وله 3 MX TRAC‏ ا م 


/*1172»»*** .2ء‎ 
>x OUTSDNUM 


7 ———— < መመ ፍጭ መው መመ መ መው መ= መው መሙ መ= መው 


a OUTOU 
EE ٣ Dr 


/ 2 25 Se S ር 55: „ie > x š e ve 8 ae 


> cr ግ* ء23‎ “ነ 


A WORD 


"0 ۶۹ oos 
se MI To ውክ 
dE ህህ ٤ 


Ke DUAL 
DNUM 
S END 


>: DISABLE; 
e SEND = HIGE( 


* CALL OUTSEEX ( 


m SEND 
pa 
0 ENABLE; 
i RETURNS 
/ END; 

۷ ۹ مم 
PE E Y,‏ 


E 


als دال‎ ^ 
RAS 


le e e ل اچ‎ . I. . uty aly ኳ፤ راه‎ alte to فو‎ 5o a” ' t ے'‎ whe qi ts عاب‎ whe Is ala als ته‎ 2 ox wee ates <! ' wl e wie a's aly are 
|| | 6 AE REACH RE AK BIS AE BS FS HSK EIS HE OK BE AS هن که که ها ېت‎ AS کن کون کرت کت که کت‎ ORK OKIE SE کرد کچھ کپ پمپ ې که کت کين‎ 
یہ‎ 


/* RECVSCHAR PROCEDURE ROWE 56-22-84 x 


Se SOTTOM LEVEL PR@CEDURE TEST OBTAINS A CHEF FL 
Poumon re PARITY BIT IS REMOVED. CHAR I |! 
0, ۱۶," ۰ 


` ¡ON * 

e N کے‎ 

de TOR NONE‏ > مم 
ጧ ም ' + alg aly al ta` UA = Lee to ale nlp aly м! al‏ = 

[PR PE AE BENE AE sS CRIAM OOOO OO AOS A 


IDR Os MXTIRACE + MITRACE Ne MITRACE Mack) 
2 ጓ፡ MYTRACE 2ጾ 2ጾ ኳ፡ ጓ፡ ጓ። NY 8 ۲پ‎ BIS AS NOE MXTRACX AME NO MSE GE жеси / 
/~ RECVSCHAF: PROCEDURE BYTE REENTHSNT PUBLIC; 


т DECLARE 
pen CHR BYTE; 


m EOS TA TUS PIT 2 POR RECEIVE-READY SIGNAL */ 
ቾ DO WHILE (INPUT(@DAH) AND 22H) = Ø; 1 

js CHP = (INPUT(EDSH) AND 1 

AR: RETURN CUR; 

ZS END; 

JERR MITFACE HARK MYTRACE sak MXTRACE RR MPETRACE AY 
JR MXTRACE xen MXTRACE Was MATRACZ xxx METEACE Kam) 


X 2 >£ > >é BE EAE TEAL AA /‏ 3° :2 2⁄2 کچھ 2 2⁄4 2⁄2 3⁄4 YER AEE AE KK ኋ፡ ጁ AS AS AS ኣ፡ ኋ፡ 2ዶ ጁ። ACK 2 SiS NE AS IE SK AC SK 3S‏ 2 مر 
SwND$CHAR PROCEDURE RCWE 6-22-84‏ */ 
A o ሬጨጨጨ ሬጩ መ መ መጨ <‏ نی EE en we‏ */ 
ከከከ BYTE THRU THE SERIAL PORT. THIS IS NOT A x:‏ 
SERVICE AVAILABLE TERU THE GATEKEEPER BUT IT I5 CALLED*/‏ */ 
ET MENT OF THOSE PROCEDURES. TI WILL STCP SENDING SEH‏ 
SVERYTEINGS ELSE) IF IT SESS A S AT INPUT. Q x /‏ رو بے Pe‏ 
WILL RELEASE THE PROCEDURE TO CONTINUE. * /‏ */ 
Me TSE USER PWWAREI!I II! THIS IS ONLY A DIAGNOSTIC "tot, x /‏ 
Poe TO FREEZE THE CRT FOR STUDY.  FELFASINC IT ٣ = /‏ 
ASSURE NORMAL RESUMPTION OF EXECUTION. (YOU MAY FORCS*/‏ */ 
ALL BCARDS TO IDLE FOR EXAMPLE.) x /‏ 2 

A ይ ን ሜን ቕኸቼም. መ ااا ۵۵8۵0۳ هون د دس‎ a: / 
/ CALLS MADE 10: &/ 


Reve me ce Le SE ' ا ساپ را مله‎ ' = „ 
(к: жок Хе Жок экек эск Ж ata SK aE aK aS SCA CE CHS a Же ЖЕК Ж Же К ЖЕ Же ЖЕ АЕ е э a ae ЗЕ ЖЕ he ale ale ae د عا‎ e / 


м غد‎ 
GE SL ` 


/*** MXTEACE 5e MXTRACE Xeesxex MXTRACE RK MXTRACE ***/ 
aA MY TRACE ፍ።ፍቾቻፍቾፍ MXITRACE KR MYTRACH مم‎ MYTRACE 9x 

/* SENDSCHAP: PROCEDURE(CHAR) REENTRANT PUBLIC: 

PES DECLARE (CHAR,INCHR) BYTE; 

7 /* CHECK PORT STATUS */ 

/* INCHR = (INPUT(2D23%Y) AND Q"7FH): 


102 


IF INCYR = 13F THEN 
TO WHILE (INCER <> 112); 
IF (CINPUT(@D4H) AND 72H) <> 2) Teen 
INCSR - (INPUT(ODEH) AND ኃ7ፔቭዣ፤ ነ 
END: 
DO WHILE (INPUT(@D4H) AND @1E) = 9% EN D$ 
0 02 ) = CHAR; 
RETURNS 


END; 
METRACE "88% MKTRACE FO MXTRACE A MATRACE Ak 
MXTRACE "uester MYTPACER Seeses MXTRACE ANOS) MITIAQE Ao 


la ې‎ la ale als > 
eye 


3 
ጋር 
7 


2 


لم 
== 
с»‏ 
SC‏ 
txj‏ 
ኤሪ‏ 
3 
SS SS OS e X‏ په پک 


Sa 
€ aN 


IN$ HEX PROCEDURE ROWE 6-22-84 * 
GETS 2 HEX CHAR FROM THE SERIAL PO2T AND 1600925 ANY- * 
THING ELSE. EACH VALID FEX DIGIT IS FCROED TO THE s 
SERIAL PORT. A BYTE VALU? IS FORMED FROM THE 7 d 
CHAR. 


CALLS MADE TO: Sac ٣ 


же хе ЖоК HE IE BE ME REDE د ید ته بد‎ e RCO e eod ree ete este aI د‎ a ale ae ae aR ea ae ak a a EA RR 


/* 
A 
7 x 
/* 
/* 
/* 
/ 2 
GER 


ate ale als 
^^ o d 


we whe a's 
ayy Ar s 


«ls Se ats ule alo als = ade ale als ale Se ale a‏ را elo als «rats ado «lo «ls yz alo‏ 22 رال Ss ate vie ats ats als‏ یاد عله wis ats ale‏ رل © ړل 
رمس бүз бүз ማጐ ማ* ሚ* жү“ Фүъ A IAN "7[ጐ Фүз 2 " Фүм ማ* ዎጦ “ነ PS‏ كروص Aye #үъ‏ كوت کړس كوت حرس كات rr ; 2 AS S SS S AS uS‏ 
—- 


/* 


jr MYTRACE eee MYTRACE دع‎ MITRACE deeem MYTZACE Fi? 
part MITRACE XO MET RA CE. A MX TR ACE E تر‎ e 


INSHSX: PROCEDURE BYTE REENTRANT PUBLIC; 


DECLARE 
ASCII(*) 3YTE DATA ('0123456"789ABCDEZF ^), 
ASCIIH(*) BYTE DAT4(/0123456789^'/,61E,62H,6938H , 64H ,65E, 
668), 


(INCHR, EBXNUM, H, L) ۷۹۶۲ 
FOUND . BOE 
STOP BYTE; 


/* GET HIGH ۹ ۹ TER 
FOUND = 1 
DO WHILE NOT FOUND; 


/* IF INVALID CHAR IS INPUT, COME BACK HERE */ 


INCHR = RECVSCHAES 
H = dy 
STOP = 2; 


< COMPARE CHAR TO HZOMIONARS ST a7 


DO WHILE NOT STOD; 
IF (INCER-ASCII(E)) OR ¿INCHR = ASCIIH(E)) THEN DO; 
STOP = 7 
FOUND = 2FFH; 
CALL SENDSCHAR( INGER J; /* TO ECHO LA 
END; 
FLST DO 
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72 به‎ 
“ማኞ 


/ 
/* 
/* 
/* 


29 E t 1$ 
17 Try EF = 10H THEN STOP = 0 7 
هه‎ "ከ ከ በጋ ¥/ 
> F p DO WHILST 
Ke ASA ); 
፡ Be. "DEL E */ 
^ FOUND = ۸9١ 
De /* GET LOW PART OF PYTE */ 
pes DO wEILE NCT FOUND; 
1 D'CALNODOGENTTILOVANID HEX CHAS IS INPUT */ 
Ps 11055 500 1۰ 
pes L = @H; 
ZE STOP = #3 
т DONES NOT STOP; 
5۰٠٠۰٠٠٠٠٠ ٠۱۰ ACE (INCHR=ASCIIH(L)) TIEN DO! 
E STOP = @FFH; 
S FCUND = @FFE; 
Ze 5۸۰۲۶5٦۰۱۱۰۰۱۰۰ ۸۰۰۰۱۰۰671٦ 
> END; 
* ELSE DO; 
Kë L=L+ 15 
pre IF L = 1@H THEN STOP = @FFH; 
= puc vLSE >/ 
END; /* DO WHIL* */ 
PND; /* PRO SILE */ 
۸ RETUEN (H OF L); 
Besch: /* INSHEX */ 
press ከ ተለ CR E Sd ela S MYTRACE کک‎ MXT2ACE AS Suse MXTRACE s 
0ر6 6۸7066 6ٹ‎ =з» МуТОАСҮ eem METRACE ٧٧٧ 


en, 
ےد يځو‎ 
4. 


/* £139 d 2; PEDE Eos aus A A A A TR 2. ኋ= ፡ / 
/* Ur e PROCEDURE ROWE 6-22-84 */ 
Se ااا اا اا ااا ا ااا اا اا ا ااا ااا ااا‎ A 


* TRANSLATES BYTE VALUES TO ASCII CEARACTERS AND OUTPUTS*/ 
/ THEM THEU TEE SERIAL PORT 7 


ae ٧ت لي ل وښ وت‎ w w w ç ېي ېی‎ w Q مج‎ m umb لس لس‎ ee ee q ә wF w eee eee سی مس لس‎ w مس‎ w s w ےب‎ ሐ፡1 — — — — *٦ 


fae CALLS MADE 0 "۹۹ ۶ 


/ 
6... በናዚ መ ሚመ EE E E E E > كب هپت رد عر م‎ AL HE RE Sie oe AS ICE AC Hs He مد مہ ېه کرد‎ px gross 


fx AXTRACE 343 ce Se TAO E OS MYTRACE re رم‎ ۲ 7 
.کت‎ TEACH aes MXTRAGE tr MXTPACE MK MXYTRACE oR / 
/* OUTSHEX: PROCEDURE(B) REENTRANT PUBLIC; 


bas Doc E ENTE: 
es DECLARE ASCII(*) BYTE DATA ('01235456789A3CDEF ' )j 


/* CALL SENDSCEAR(ASCII/SHR(PB,4) AND QFH)); 
"Ls CALL SENTSCHAR(ASCII!B AND 0FE)); 

/= EETUEN; 

/* END; 
/*** MXTRACE exe MXTRACE Hesse MXTRACE jeeees MYXTRACE ж? 
/**=® MXTRACE sexes MXTEACE ።ፍቾቻቾቻቹ ኮጂጀፐቿጂጳርጄ #ቾቻቸቾቻቻቹ MXTRACE 


Jt ን 
3 

st‏ پل 
a e‏ 
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A 
* 
2 
? 
ጋፈ 
` 
4t 
` 
ፈ 
` 
M. 
7 
ዔያ 


ېز e DAE E E RE AS MA A A AE‏ ېه اپد ېد ېد هن بېو ته یود کچھ »ېد ېد »ېد ж‏ د د پد ትና ፍፍ жох‏ و لړ 


SET 
END; /* LAS OE 7٢ 


7 


Sege لد ميد مالا‎ A ሊእ ልጫ ብ. ee ee ME 
wo 
ግ* 


IK AK AS AC NE SH ME BK DS AK AE HS AS مېا ده یه‎ AE DE HK TS BK ME AE AE Hs Fis ACT DE DC HS SC AE iS Dis ME Te TiS NE DE e e ee ge ege de ais 1 
3 


x 


we abo ale sis 5ቃ 
کچھ کچھ‎ ጓ፡ 5. ጓ 


۴ 


J HERE IE HE HE HE DE BE بب بد »په‎ Ж: sca tee ee ee He EE عبد جب عاد عبد عبد‎ / 
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س s‏ ست መታ == “s‏ سب w Q Q Q‏ ټس 


٣۰۰٠۰٠٠۔٠٠٠‎ ٠۷ب‎ ٣٠۹٥٦۷٦٠٠٠ code written in PL/M is contained 
=m the “file  BEVEL1.SRC. It is compiled with the 14267 
eee ribute. EEUU "Unctions, SCHSDULEF and 
INTSRRUPT HANDLER, were written in ASMRBO6 ard are listed in 
their owr modules. ОКЕ اط‎ ٢ emo Lone relocateable 5,6 
ules in file: KOQRE.LNK. It is part of the executable 
Ee module in file: KORE. KORE is the development system 
Wers1ion of the file KORE.OP>5 joaded by MCORTEX.CMD under the 
CP/M-86 operating system. This module contains utility 
procedures used only by the operating system. Two memory 
maps of KORF (.0°S ard .TRC) are located at the end of this 
ንን ን Le maps come from file: XOSE.MP2 after compiling, 
linking and locating the applicable files. КОНЕ ОРОК is 
produced with the code unaltered. KOPE(T=C) is obtained ty 
remcving and adding appropriate comment marks fron tre 


indicated code before processing. 
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/ 2 226 2 26 ہوم ,2 STE AS AL SS AS SK AS OS Pç ZK X€ 2 z 2 3 FE DF IS AE AS TS OK OE OS AS AS BK AS OS NE OK > > >< > a ጃ፡‏ کا9 7۲0 8 مر 
/ د ېږ M she ste ste ste sie oe sig ole sig ale CN EE E E እን. ቁ. Cx‏ 27م oso‏ 


DK SK Sho FS SK IE SHS BIC SK KA VE ጃና ጃና 2። 2። 5። 2። 2። ፲። ፲። ٦ 


/ 


ONC 
ZERO E 


RDYTH PS B 
LOCATESEVC 
IDLFSPROC 
GEE 


SEQ 


Le ale یاو‎ 
oy م‎ 


t 


' ' , , , ' 
AA RE ee a 


LEVEL 
ROWE 6 


sui ٠ 
TILES 
VERS TON 
PROCES 
DEFINED: RETSVP 
GET WC RE 
LOC TE 


SAVES CONTSXT 


MONITORSPRCC 


LITERAL DECLERATIONS BELOW 
ӨТЕ MODULES. THAT МШЕ 
MODULES BOUNDA? TuS Jom 


w E 
ING IN 
ACROSS 
CE ۹َ ٦ 
x / 


хок Жоо Жл де эсде ፍች ЭКА ЖоК cotone x RO ene zoe / 


= ' ፥ = ፥ ? DA š M 1 ፥ 2 
A عر‎ sisa ele ee ele EEGEN 7 
ل ` و‎ ፥ te 4 5 > 

HERE HC HE AE AE AE AE DK AE AL NCAT AL AE AE AEE CIE AAC NA ЖК XC / 


ales 
x / 


LITERALLY 
177 
LITERALLY 
LITERALLY 
LITERALLY 
LIT*RALLY 
„ТЕЕ АШ 
LITERAS 
LITER ٦٣ 
۶۳۲ 
LITERALLY 
1۶۲ 
LITZRALLY 
1 ٦ہ‎ 


E 

SM 

RER 
“119° 

% 
"PPCEH” 
707606 2 7 
ACRE” 
^COCCAH" 
25 
"7g. 


, 
? 
, 
9 
) 
9 


~~ < < 1 a = 


BRAK MCORP RX cake 
wegen MCORTEX Ee 
LITERALLY  "eCc82u" 
517288507 2CAOdAH ° 
LITERALLY yT , 
LITERALLY 2033924; 
жм МОО ТЕҢ жж 
د‎ 222126 M CORTEX ጆ=ችጁ።፡ 
оп MXTRACE "sex 


٢٢00817۴) له‎ 
MCORTEX "52 
ر‎ 
سی‎ s N 
fx o: 
f = 2 
MCORTEX لل که‎ 
MCORTEX لل‎ 
MXTRACE “>na 
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dy als 22 ate su e sz Ec ya ie > 25 sto ale 
` ‚> Zus ée 4” yo کے‎ ~~ 


ده 


MCOPTEX 
MCORTEX 


۷۰ 
MC OR ss 
252556 MXTRACE 57ت‎ 


ho Ae 
WARNING: SEVERAL O 
HAVE A SIMILAP MEAN 
INS IS COMMUNICATED 
CAREFUL WHEN CHANGI 


/ x AE AE AS BK OK SK IE NS AS IS HS BK IE BS AK IK IKE AS BLAS Ze >K 


LISMODULE: DO; 


Sg e Se > Se E sh tos 
EE 


ARRE RE ALS EAS AL NENE NENE AC ANA NR AL de EX 


/* LOCAL DECLARATIONS 


DFCLAEE 
MAXSCPU 
MAXSVPSSCPU 
MAXSCPUSSSMEXSVPSSCPU 
FALS? 

ERDE 
RUNNING 
WAITING 
TRUE 

NOTS FOUND 
PORTSCA 
PORTSC2 
PORTSCE 
PORTSCA 
RESET 
INTSRETURN 


{келк ШЫ 
7" MCORTEX 
IDLESSTACKSSEG 
0 6 
INITSSTACKSSEG 
68 ۶۲ 
paro MCORTFX 76 
proa MCORTEX 767 
Jas MXTRACT 
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< > 2٤ SEENEN 


A ALA M, AN 
` a ey 7። 
> ال‎ N D 


= ፡፡፡ _ <_ ns en 


fe MYTRACE wR MYTRACE Ko MET? LCE me: 
LITE Reem CEJ“, EE 
LIE TT CSE, EE E не 
ТЕШЕ ۱ حم‎ 

۶۰٠٠٠٦٠٠٠٠٦٦٦۶٣۰ EORNM 

: 

' 


a 

<2 
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ጊያ 
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vox di 


SEG ИИО 1-1 7” 7 
ABS LITERALLY 5020 ع‎ 1 


` 


: 
په‎ ٢ کس کس‎ ፡ሽ ፣ኢ. ዴሬ 


x 


ጋሩ 


AT AT AC AL هده کپ‎ 2ጾ ኣ፡ ጓ፡ ኳ፡ ጃ፡፡ ፡፡ ቿ5 AL AS AT AE AS BK AE NE AK FS SIC ኣ። ች ጻ፥፡ ጓ* ኣ፡ ጻ ا‎ ።« 2= 
A SEGMENT TAPIT 

|| ٨1 1 ኪሒኪቢ ውን ከ አ ٢1 TOT A TICULAR PHYSICAL 
ال‎ 11 1 IT IS РЕКА Т, 


a 
3t ግና 


3%. ate 
` a 


UNTO የያው ህይ ። ስ ከ 1 መጠ ኑር ጅቪሺ ASSIGNED TO 
TETS ۰ی۹۷‎ 

٣٠٠۰٠٠٠٠٣٠٦٠٠٠٦٦ E FIRST VIRTUAL 

|| D TO THIS REAL CPU. 
11105 TOT LEST VIRTUAL... 

٠۳۰۰۶۷۰ ٣٦۷٦٠۷٦٠٠٦٠٠۱۷۰۰ ۷۰۰۹۰۸۰۹۰۵۷7071۶ TC THIS 
A ALS 11. 

Veet ۳/۷۷۹۹ ۹ ۹ MOST 
RECENTLY SWITCHED FROM RUNNING TO 
EITHER READY OR WAITING 

AN ARBITPARY MEASUTE OF PENFORMENCE. 
ООШ toe ave tee IDLE STATE. 


te s. 
Ar ` a 4 


j- 


3. 
ቃነ 


2c 3% AL 
% ` > 


M 


" , v 
e E + 


` 
= 


CTURE 
PITE, 
EY TE. 
Ryan, 
BYTE, 
BYTE, 
KEE LIO OD 7,2); 


ba ade ale ale د‎ ats ےد‎ whe ate ale So als ote ale ፍ 2 ae RES w^ elo ale we رل ملو رل راب‎ aly alo ale oe "ቃታ علو ساد‎ 
bd Wé ka kel wd kd ka kd hb z 2 ^7? А *17 *|1 x كوت درس كيت‎ us Se bl پوس ورب وبا‎ - 


EC IN FILE ZONE T SIC 
IN MODULE 'GLOBALSMODULE' 


US ERES > CU) STRUCTURE ። 


A 


BYTE, 
BYTE, 

БИЛЕ, 

WORD, 

WORD, | 
WORD) EXTERNAL; 


ጋ መዲ ከ ስ ጋዕ 
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ale wie ats ate ate wie ale sw‏ س 
ማጐ “*ፆ፦‏ کد کر ግኝ ግ፡ ፇሮ ግ* ሚ*‏ * 


ብ al سب د پو‎ 
2 IDLESSTACKSSEC 
ር ን 231301 “ግሳ 
ye INITSSTACKSSEG 
Pe ١15 
fa MONITOR SSTACKS 
la E ore > 


Peers MXTRACE **** MXTRACE FH MXTRACE Soo MITRACE سم‎ 
ws METRACE HK METRACE MOCK METRACE te METRACE oH 


/ 7 7 AGA IEE ME AEE EE оңол 
/* PROCESSOR DAT 
7۸ INFORMATION 
AR б 55 (ነ 
/* 

et CPUSNUMRFR: 
/ 

3 WESSTART: 


pr VPSEND: 


pen ከቱባ. ብ ፡ 


E ASIS RUN: 


/ COUNTER: 


DECLABE PEDS STEU 
(0 25 2 
VPSSTA2T 
VPSEND 
VPSSPERSCPU 
LASTSRUN 
COUNTF} 


7 ale als ate o uo ale So ate ale ale ale لو‎ 
e 07 1 | 2 "| ዎሮ وړ"‎ Ld hd ы ы e, es > ግ* nn - 


AE OBL DITA BASE 3286 ۹۹5 15 


ES DECLARED PUR 
/* 


DECLAFE VPMÍ MAXS 

/VPSID 

SEU T 
VPSPRIORITY 
EVCS THREAD 
EVCSAWS VALUE 
SPSREG 

SSSREG 


DECLARE 
CPUS INSIST 


231۸5111757180) MAXSCPU ( EXEE ۷۳ .:. 
۷٦٢ 5 ) ۲۸٣٩٩020 67” A 

NR SRE BITS MTNA, 

LOSAL- LOCX EYTE EXTERNAL: 


DECLARE 
EVENTS BIT: TET 
EVCSTBL(109) STAVCE E 


(EVOSNAMT BYTE, 
VALUE WORD, 
THA BAL BYTE) SXTEHNALS 


DE CSTE 
SEQUSNCERS FIT o 
5 29۸)  ٔ የህ ክህ 
(SEQSNAME HOS. 
SEQSVELUE WORD) EXTFRNAL; 


/*9159* RO OR AA IE AS TIS BS he FR AS TS AS AE OS AE a) 
7" O OF EXTERNAL PROCFDUPE SERERENCHS ж / 
[x TEE FILE AND MODULEAWHERE TE ھ‎ Tun] ٠٦ > j 
/* LISTED. &/ 


INITIALSP30C: PROCEDUR? EXTERNAL; BND; 
/* IN FILE: INITKK .SPFC */ 
/* IN MODULE: INITSMCD i 


WEIT: PROCEDURE (EVCSID,AWATTEDS VALUE CONSU 
DECLAR* EVCSID EYTE, AWAITEDSVALUS Suey, 
SND, 


VPSCHEDULFE: PROCEDURE EXTERNELS END; 
/* IN FILE: SCHED.ASM */ 


DECLARE INTVEC LABEL 76٤٦ 
dE ECK <0 8250 


DECLARE INTRSVECTOR PCINTER AT AMR INITIAL: CINTVEC); 
A ٠ہ‎ በከ SCHED SAS ies 


J PED Y BORE HEME EERE BE REE де жок RETE BET ER aC FS I OI OK SEG ICT Ж RE AE AR HE AE IK SI SK HEOK DE E2 KENE af په‎ / 
/* THESE DIAGNOSTIC MESSAGES MAY EVENTUALLY PE REMOVED. el 
/* THE UTILITY PROCEDURES, HOWEVER, ARE ALSO USED BY THE */ 
/* MONITOR PROCESS.  TEEY SHOULD NOT BE REMOVED. 


ә 
"ae 
сч 


PRE وم اچ زیر‎ xa METRACKE xR MXYTRACKR Xx MXTRACE 5m 
JRR MXTRACE وم وو یں‎ METRACR Мут АН ٥ 
/* DECLARE 

/* MSC1(*) BYTE INITIAL ('ENTERING ERDSWP ا‎ 
/* MSG1A(*) BYTE INITIAL (% RUNNINGSVPSINDEX = Z^), 

/ MSG4(*) BYTE INITIAL (ENTERING DITINE OS ከ 
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yee ሰለመ) PITT INITIAL 
Me “MSG7(*) BITE INITIAL 
1 MSG74A(*) EYTTE INITIAL 


: КЕТ ve TO READY: ር ሚሙ ከ 
ከ ከከከ! ጢጆ ሮሙ ር ንሙ።ጀ "15.14... 2), 

í TT RUNNIN: VR = eS, 
/* MSG7A(* ۱ 


( 

í 

( BYTE INITIAL 50002011 51 DR = =), 
/* 17787 

( 

( 

( 


( 

( 

( 

| 
BYTE INITIAL (“ENTEEING IDLESVP “ ‚15,12, E 
BYTE INITIAL (“UPDATE IDLE COUNT '",135,12,' X^"), 

| 

| 

( 

( 


) 

/* MSG11(*) 
*) BYTE INITIAL (“ENTERING E Iu INO do! 

) 

) 

) 

) 


"uU M56121 
ye MSG22 


n 
RYTE INITIAL (“ENTERING LOCATESEVC ^,19,13,' 27), 
/* MSG22í(* E 


2۰٠٠۰۰۰۰۰۰۰۲۰۰۰۱ | 215215 00225559886 ',10,15,] 


J MSG23(*) BYTE INITIAL (” FOUND’ 3 15, n 
/* MSG24(*) BYTE INITIAL (7 NOT FOUND’ was, 2. 
/ 


/FDECLARE 

/* ORM LITERATE "ong", 

/ بد‎ L¥ LITERALLY PARTS 

jes 

/*OUTSCUAR: PROCEDURE( CHAR ) EXTERNAL; 
Uo DECLARE CHAR BYTES 

/*END; 

2 

۰٠٠٠۰۰7007 PRCCEDURE( LINESPTE ) EXTERNALS 
/* DFCLARE LINESPTE POINTER; 

/*END$ 

/ 

/*OUTS$NUM: PROCEDURE( NUM ) EXTERNAL: 
/* DECLARE NUM BYTE; 

/* 1 

p 

/“*QUTSDNUM: PROCEDURE DNUM ) EXTERNAL; 
/* DECLA2E DNUM WORD; 

/*END;j 

E 

/*OUTSHEX: PROCEDURE(B) EXTERNAL; 

/* DEGLSAE BR LIITY; 

/*END; 

/* 

/*INSCEAE: PROCEDURE ( 282952782 ( EZXTEENAL; 
/* DECLARY RETSPTR POINTER: 

/*ENDj 

م7 


/*INSDNUM: PROCEDURE (RETSPTR) EXTERNAL; 
/* DECLARE RETSPTR POINTER; 

/// 1 

/ፍ 


/*INSNUM: PROCEDURE (RETSPTR) EXTERNAL; 

/* DECLARE RETSPTR POINTER; 

/ үт; 

[*XX* MXTZACE "Ge OMXTRACE xsexxe MXTRACE SU MXTRACE >x 
[Ux MXITRACE XS MXTRACE ao MXTRACE Жжжж MYTBRACTP жжа: 


E 


/ 5 7 277 ze HE AS AE FE AE AS TE AS BK SK AE RE OK SSS FS BK TE BES SS AS ЖООК ANS ጓ፡2ጾ DIE AS IS کوت‎ DIS AE AR AE AE EAS RE AE AR کب‎ ›። a 
=” 


ከሺ ን ቤክ) ስ ን 101118151221103 FOR SYSTEM PROCESSES 


4 


WIP CST, 
IDLESS ንኑ) 


iG, 
gu 7 2 12 e, 0 0۳۰ 
ነ 2 1 ፳5፻500, 2208 ) 
/* TP, CS aa 
INITSSTACKSAES ) 
0 Q D (Ac Cu 
C ۱ +49 8 ٣ 
0 O P OC ۶٣ 
S Tur f ۶ ۶ ۶ 


GUR MXTRACE Жж MX TRACE RR 
toe MYTOACE RAK! MXTRACE “oe / 


DECLARE IDLESSTACK STRUCTURE 
(LENSTE(L3CH) WOED, 
ВЕТ5ТҮРЕ WORD, 

RD 02 
DI WORD, 
SI WORD, 
DS WORD, 
DX WORD, 
CX WORD, 
AX WORD, 
RX WORD, 
ES WORD, 
STA g POINTEK, 
FL WORD) AT( 
INITIAL( 
C,0,€,€,0,0,0,0,€,0,0,0,€, 
„б, Л А + 0ڑ‎ 
RETURN,7479,8,0,0,28,8,2,8,0 
DECLARE INITSSTACK STRUCTURE 
(LENGTE(230H) WORD, 
RFTSTYPFE WORD, 
EP WORT, 
DI WORD, 
SI WORD, 
DS WORD, 
DX WORD, 
CX WORD, 
AX WORD, 
EX WORD, 
ES WORD, 
ST PONDER. 
FL WORD) aT! 
INITIAL( 
27م‎ Oe 7,7, 0  ىصآ‎ ۲ 
D Ber, D e ا‎ 
RBETURN,7423,0,2,2,0,0,2,2,0 
/ 22085 7 
۳۵ 0۳ MXTPACE 5*3 
MXTRACE xs MXTRACE ٩۳ 
DECLAPE MONITORSSTACE STU T E 
NG TH ( 6 هات‎ ( WORD 
RETSTYPE WORD, 
BP WORD, 
DI WORD, 
SI WORD, 
DS WORD, 
DX WORD, 
CX WORT, 


whe 


7 LA WORD, 

i EX 40 

>< DR "OR n 1 

4 ھت‎ ۷٤۲ EDIT Do ae eS es 

x DE Ku Db Mert TP ONITORSSTACKSARS } 

x INITIAL( 

EM eae eC) WG eee O20 eee. 2 ,2 0 و‎ 

mee 0,2,2,2,0,0,0,0,0,0,0,0,0,2,0,2,0,2,8, 

* — INTS3FTURN,742,0,2,2,2,0,7,9, 0 , GMONITO:SPEOC,2009 ); 
Jers MXTIACH BHR MITIACE Sueno MYTRACE dUset MYTRACE dues 
fox MYTPAQE xxx MYTZACE SOKA MYTIACE سم‎ MYTRACE Were) 
7 AS = 4 Së 2 واج‎ ais ok ats واد عاد عا ماج ےاج واج‎ ሟ5 25 عادعاد یاد‎ ofc sts ok sic ak sts str ste as 2 5 ቿ፡ 2ጅ ቿ። ኳ። 22፡ 2። ፲፻: 2 2 2 ፪፡ ፪፡፲ ጀ2 fs ote o's ag ste ماج‎ d 


жоо э sic le ie OR SR rese sede xoxo HE FC fC FE FE FE DE DFE FE DFE AE A 2j f E A KEN ZE YAYE 2E AE IS Û E jE 6 f6 2K f 2 2 


22 2 
"e DETSWV? PROCE eed 2 ۷ — اھ‎ y 


/* USED BY THE SCEEDULEP TO FIND OUT WHAT IS TEE 
/* RUNNING PROCESS. IT’S INDEX IN VPM IS RETURN 


1/۲ 00 په 


e 
*ቆ 
, to a! ы ы ' 
2> 07 == EZ ent 2 ኋ ጪው ው کو‎ >; i ፦ D = >< > A 27 2 ` A LCE ER M سر‎ 2.2 Së Së Së 6252 > IONS x< > > 


" d 


/* CALLS MADE 


we ele als aly als ale aly ale te 
BS FE ጻፍ AS AS AE OK FE OS x< > 


NEP. PXOCEDUR? PITE REENTRANT PUPLIC: 


DECLABRT RUNNMINGSVPSINDEX 3YITE; 


JOD T MATRACE rer, 


He S/S 3S 3,5 MX 1 HA C 7 5225 ک‎ 


w MATRA!‏ جولو ا کا 

BS ASSIS AS HE TSACE > 
/* CALL OUTSLINE(@MSG1 ); 
سه سه‎ WYT2ACE rich MXTRACE BS HS >< X< >< MXTRACE O MXTRACX AUR UR / 
week MYTDACE жиз MYTRACE NE MYTRACE BEX MYTRACE مم‎ 


T x >x x ማሻ 8 
als als ماد‎ ate ري‎ 

T كرت كيت‎ us es dr M n AC 

Pur! 


T 
سه‎ 
Ed 


سا 


MAP POR RUNNING BROCESS, INDEX */‏ د کل 1ه و 
ZUNNINGSVPSINDEX = ?PRDS.VPSSTAET TC SRDS .VPSEND;‏ 50 
IF VPM( BUNNINGSVPSINDEX ).STATE = RUNNING‏ 
TIBI CC TECO EOD,‏ 
SEDIS DO */‏ 
UNINC POTIK = PRDS.LASTSEUN;‏ 


Ka 
= 


FOUND: 

Ri MY PIA CT EME MYTRART KKK MYITRACZ Ak MIT? 

LL دیما ما‎ MITSACE Fra MATRACE RRS MITRA 

ANAL 0 STI INZ(GMSG1I1A): 

75121 75 110111 | 2۸ کا د ۷7-0آ)1 :۹2 تا 

۸5-0211 OUPS ۴ 

IES LL г ОП ТӘШ د‎ OLE); 

ee ee Le AO Zune MITRECHE FAK MITRACT lc 

E EL EE rc ۷۷05۸1 مرح‎ A MX TRACE kK 
RETURN FUNNINGSVPSINDEX; 

BND: /* TSE PEOGNPUSE */ 


A 


[D>‏ ووا 
СУ Сз‏ 
[xj rey‏ 
% 
2t‏ 
NS‏ 


w 


መ ረ 


JR QA 1 QE MERE AR REE MARR RC A SEIE ERE په‎ dee de dee kee ee »ېه اد پو‎ л هت د بپ عا یې‎ 
ጠሰ 


> 2 = 1 

/* ከ! ከት PROCEDURE ROWS 6-22-84 y) 
٣۷ 

/ 


* CALLS MADE TO: 7 OUTSCHAR i 


Bg IE BK BSR esee /‏ ته مد عا ع ae N‏ عبد كد كيد علد عا xen‏ مد په AEREA‏ خد ېه too КОК‏ د د ېت پد ېه هه ېه E sexes soe‏ 
۶٣‏ لر RDYTSISVP: PROCEDURE SST ENT‏ 


f**xx MXTRACE RE MYTRACE xXx MXTRACE دد‎ / 
PRANK MYTRACEZ X53 MXTRACE Xem MXTRACZA *ፍ / 
/*2 CALL 00151111 7171 17 لل‎ 

[ERE MYTP ACK HORN!’ MYT PACK RRR MYT PACH KAMEN MYT ACE عع‎ / 
JX xk MYTRACE AK METRE CR HRI MYTRACE MEY METRAC ER یعاد‎ / 


PRDS.LASTSRUN = RETSVP; /* SAVE THIS PROCESSOR INDEX */ 


/ቹቐ*ችቾች MXTRACE RAR MEP RA CM, wea ኮኒን ሱሱ ንን ፡. ፣.፡፡ህ፡። ስክጂ 
чыг GER RM MITRACE FRA MITRACE *UesUR MRT ہت لګ 6۴د‎ 
/* CALL OUTSLINZ(QGMSGA45); 
/* d 00 8۰ LASTSRUN); 
ሔይ...) 
ZS CELL OUTSCHAR (LF); 
E AE MXT2ACT DDE MXTRACE Se Sie ee co MXTRACE ES MY TURCA 7 AUN / 
f"xx* MYTEAQE x65 MYTPAQE "osas MATRAGE FMA LL 
VPM( PRESSLEASTSRUN ) STATE = 7 
AN 
END; /* RDYTHISVP PROCEDURE */ 


JE GAA YL RRR HERE RE BE HE NAS NE A A ee ee E RE SRE AE DE S AS A NE AE A D SESI RE AEK E پر بب مت جرد یبد بد بد بب‎ 
/> SAVFCONTEXT PROCEDURE ROWE 2 APR 84 */ 
/w-—-— aMMa E E a 
ZS SEVES CURRENT STACK POINTER AND SEGMENT IN TPS ማጋ 


/።ና  መመ>መሙመሙሙሙ -- - === መመመ وو ود حم‎ A A ا‎ A A A ው دس اا ا سا‎ ee ee -— > / 
م کل جن م7‎ 8 ۹ d 
f» inse ser AD A A A e E LL / 


SAVECONTEXT: PROCEDURE (STACKŠPTR, 7 


Ga 
“صم ة*‎ 
Kri 
t=; 
Ix] 
= 
جم‎ 
Y) 
GE 


AN 
PUBLIC; 
DECLARE (STACKSPTR , STACKS oO 


IF PRDS.LASTSRUN 4» 255 THEN DO; /* لل‎ 15 TS "d 

/ PROM KORE STAM Za 
STACK$PT3; / ۵۵ SIAC Ke 
STACKSSEG; /* STATE SÉ 


VPM(PRDS.LASTSRUN).SPSREG 
VPM(PRDS.LASTSRUN) .SSSREG 
END; 


اا 16 


END; 


URS 


owe ales ale ወ we 
፡ 3፡ 5 E ር. و‎ 


XN 9 7 7 ٤ PROCEDURE ROWS 2 APR 24 */ 
2. 7 


Le al t r + S we Lo نل یا‎ `. te Ze ele ےا ےا‎ whe 
/ 26 74 2 07 355 A ° 218 2⁄2 2⁄2 3⁄2 AA خم په که کچھ کچھ مد مد کب‎ 


Pore URN STACK OI POINTER COS CURRENT RUNNING PROCESS AS Z 
K DEI NASE VIRUS PROCESSOR MAP 2 


መሠ у‏ - - - - - - -- - سیت - - - -- - -- መ= መመ መ መ መ መ‏ - - -- - مهم پا سا سا ا ا ا اا ا ت ا لس ا اس سے کپ 
MADE к: RETSVP P‏ 00000186215 
Ас > SAS RIAL BME IE FSS FE OS 3⁄2 >K X< Be AS SK Xç >z x< > 2222 216 217 NS SAE ME OK SS SIR SE OK ALS AS SE HS TS AS AS ARTS ALS ae Be As AS > /‏ ?= 


|| SP; PROCEDURE WORD REENTRANT PUFLIC; 


DECLARE М BYTES 


3+ 


INTE, /* GET CURRENT RUNNING VIRTUAL PROCESSOR 2 
BURN و 105121511 م را‎ /* RETURN NEW VP STACK POINTER E 
END; 


6 E >: 2 > 25 ste ale 2 5 2 wae ate ats abs ale als als ate ale ale ate ale 22 ales ate ala ate ale ala ale alas ale ale sie se sa ale sie ale وأو مله‎ ale ule ale sie ala 
ሚያ 4. C Bu CR 3 a. "S eya y" vs "vj ыы e. “~~ > er: کی‎ éis n eya “ም ማ* ክክ „ү“ “ርዴ e eg ma > Ze ዎ,* e a ده دي‎ Ld hd v. ^ “ ` eye Zus d hi a ne en در‎ / 
= — 4 € ep ماه‎ 
a GETWOF K PROCEDUR TOWE ”.... ን. 
a). 


/* CALLS MADE TC: 00150148  OUTSLINE — OUTÉDNUM &/ 


J PESER DiE BIE SA AERE FE Se RR RNE ER dee ed ee ee a ak dog EE YC RE ፍች ቾች اد‎ 
GETWORK: PROCEDURE WORD REENTRANT PUBLIC; 
029 aN) BYTE; 


DECLARE SELPCTEDSDER WORD; 
DECLARE DISPLAY BYTE, 


ma MXTPACE Xxx MXTRACH Ami MKT RACE Xxx MXTRACE HANK 
f*ex MXTDRACR xxx MITRACE HR MXDRACE woke MY PRACT XA 


IO T OCUTSLINE OMSET? ); 
AEA MATEACE SA MXTRACE xox MYT EACH ake MXTRACE xxm 
[JERE METRACE A MYTRACE Smse* MXTRACE Nxt MXTRACT Are 


= 259; 
/* SEARCH VPM FOR ELIGIBLE VIRTUAL PROCESSOR TO PUN */ 
I = PRDS.VPSSTART TO PRDS.VPSEND; 
IF /* THIS 12-5 PRIORITY IS EIGHER TEAN PRI */ 
((VPM(I).VPSPRIORITY <= PRI) AND 
(ҮРМ( ТУ bapa = neakDy))@ THzZN DO; 
| Z 51211201 THIS VIRTUAL PROCESSOR */ 
PRI = VPM(I).VPSPRIORITY; 
حا‎ 
END; /* IF */ 


2 
DO 
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END; /* DO 007 የሪ. 6.) 


/* SET SELTCTED VIRTUEE PROCESSOR 7 
VPM(N).STATE = ZUNNING; 
SELFCTEDSDEF = VPM(N) .SSSREG 


JRE METER ACHE ቻ።=።ች MXTRACE seek MXTZACE FAK MKTRACE "Hmm 
f**Ux MXTRACE kiok MXTRACE RR MXTRACE HK MXYTRACE wea / 
EA A AA EOS 

/* "LL POTEN): 

Zë CALL OUTSCH4E (CR); 

/* CALL 0 TIDE 

/“ CALL 001511۷ 01 70٣7 

/“ CALL OUTSDNUM(SELECTEDSDEE); 

/* CALL 800-٦ 

/“ CALL CUTSCHAR (LE); 

[RR METPRACE RAKE MYTDACH AAR MXTKACE 230% MXTRACE Am) 
pres MXTRACE *¥*X MYTRACKR des MITRACE مج‎ MYPRAC RE ردد‎ 


RETURN SELECTEDS DBR; 


YND; /* GETWORÉE PROCEDURE */ 


JE QB GQ EERE RE SR secet xo notet 2 پلج پاج باج پاج پا‎ Yess ale ماج ماج یاج‎ ጄ፡ ste se we Yeates ዩ 2 كد كرد كاد عد عرد كاد كد عمد مد عا‎ / 
7 LOCATESETC PROCEDUZ (E “ROWE 6-22-84 N 
/**—— A سم مهم شی سی‎ -—-s——rr rT --- - - -- - و‎ - - - - - - - d 
/* FUNCTION CALL. RETURNS THE INDEX IN EVENTCCUNT T4207 PE 
/* OF THe EVENT NAM 95 TONN 7 
ہے سے ک2‎ mm حك صاخ عت‎ e کہ ک‎ a EE e vn ه۳۷۳۳ ےک بے ۴3 لاد 75د نے کے سے‎ (٢ 77 

/* CALLS MADE TO: CUP O 0-0000 KC 


, Ze ale ا ے۹ 1 ' 3 , , ' اې‎ ። ۰ ‚е عبر په‎ at 
JPR ERE BEER RST BEE AE BE AE AEE BE AE AE AS BE OE AC EE BE IE O EAE SE E SA HE OE AE OK AIS SAE SE اد‎ AERE R E SE e 


= 


SOCATESEVC: PROCEDURE(EVZNTSNAME) PYTE REENTRANT PUBLIC; 


DECLARE EVENTS NAME ፡ 
DECLARE (MATCH, EVCT ELSTNDE AS 


Ce MXTRACE 300% MX TRACE sas / 


Je MYTAACE vere MXTRACE ee 
ee MATRACE xk MITRACE #ቾ#ጆ/ 


/ MXITRACE xXx MYTRACH 3X 
/* CALL COTSLINE(GMSG22); 

[KE MYPPACK XK MYPRACKE Xxx MXTRACE Xx MXTRACE ፍ።ች። / 
/ MXTPRACZ ARK MYTRACE Ka MYTDACE Fat MYTRACT #ጆች።/ 


5ቓራ 
^4 


+۰۰ >5“ ۳٦ 

٧۷ ۴م‎ 8151 77-٣ 

/* STARCH DOWN THE EVENTCOUNT TABLE TO LOCATE TH? */ 

/* DESIRED EVENTCOUNT 3Y MATCHING TEE NAMES */ 

DO WHILE (MATCH = FALSE) END ፡ል፡ሽ፡፡ፊጨጫ፡፡ጤጫሎሌ፡  ፡ ce 8ጄ 
/ DO WEILE YAVE NOT FOUND THE EVENTCOUNT AND HAVE NOT */ 
/* REACHED END OF THE TABLE */ 
IF EVENTSNAME - EVCSTBRL(FVCTBLSINDEX).EVCSNAME THEN 


تاليا 


TLSE 
251005715 1501 2—FWCTSLSINDEX-1: 
END; /* WHILE */ 
/* IF SAVE FOUND TER EVENTCOUNT */ 
በመሸ ንጅ ካካ ካከ TRUE) 1 የክ 5 
/* ZETURN ITS INDEX IN TEE 51705781 */ 
ELE ST TO ታት MATRACE Yak MATRACI 75 
akt MYTRACE “exis MXTRACE “a MATIACE es ME TRAC HR 7 
/ቾ CALL OUTSLIN'S( @MSG23); 
[RAK MYTRACH AK METRACKH RRR MYTRACE * 
/ ع‎ MXTRACE Serie MXTRACH "er MITZACE жуш 
RETUPN EVCTELSINDEX; 
END; 
SSE DOF 
/* RETURN NOT FOUND CODE */ 
/ MY TRACK FORK MXTRACE GERA MXTEACE "Sees MXTRACE eee / 
[RRR MXTRACH AK MYTRA CK KEE MXTRACT Xxx MY TRACE cee / 
/ ۶ 0011 15247 
171 په‎ MXTRACE ቸቹ#ቾጅቾፍቸ ኮጀፐጀፒለርጅ ።ቾ።ፍቾ። ኮጀፐዊ=ጳር፻ጀ *።።፡= WXTRACE مد ٭‎ 
{RRR METRACT KKK MEPTRACT HH MEITRACKE we MXTRACE X* 
RETURN NOTSFOUND;} 
(ШШ /* FLSREW/ 
HUBS /* LOCATESEVC PROCEDURE */ 


Ex x 


ale ale al‏ ہام 


ta] 


C23 a 


رج * 
7 ٭ 


2 
اد 

[4 
ሩ 


: 
A 


tm 
b b 


/ 
if 


we 
ke 
مله م‎ 
EE 


/ ۶ >۰ 06 >> ZE SE SE ኣ፡ ESK HEOR RES R I RE E H AERE SEK NESE EE NENAS 


is 92*20 PROCEDURE POMO =2c-=64 


52፡39 


 ንን፣፡ እ 10110 CALE TO PETURN THE INDEX OF THE SEQUENCE? ቾ/ 
ከሸ”. |.) IN THe SEOQ-TAPLE. p 
/* ———— — —À —— مس مه هام ام هه‎ — —— —— —— መ ——— ———À———— — ——— ——M——— —— — —.]. mm > / 
ከ ከ ከ. !5 MADE TO: OUTSLINE “ 


зек жж SAE NE HE HE AE AS AS BK SE OS AS HK AR AK IS NET OK AE AE AS OC AT TIE BS BIS ፡« ኣ« ኣ፡ ኳ፡ ኳ፡ ።ዶ ጁ፡ ›ጾ 5። 2። == 2 ኳ፡ »ጾ ፡። > 212 / 


MATES SEA: —PROGEDURE(SEQSNAME) BYTE REENTRANT PUBLIC; 


DECLARE SEQSNAME BYTE; 
DESLARE ( MATCH, SNHOTELSINDEX ) BYTE; 


9 
JE MX TRACE Met METRACE AE MYTRACE FROCK صا مرج ویر‎ / 
JMR MXTEACE Xeexe8 MXTRACE kK METER ۸ چم‎ RO MK TRACK 2337 
/* CALL OUTSLINE(@MSG22) ; 
[FROH MXTRACE eos MYTRACE RO MXPIACE OG MXTRACE 40K / 
JR MYTFACE Fri MXTRACE RRR MXTRACE عم‎ MATRACE میا‎ / 


MATCH = FALSE; 


SEQTBLSINDEX = 2; 
9۰۹3٠۱۰۱۱۱۱١8۷0 003061002 < SEQUENCERS); 
PP OSQSNAME = SEOSTMELW(SEQTELSINDEX) .SEOSNAME THEN 
MATCH = TRUES 


ELGE 
SEQTBLSINDEX - SEQTBLSINDEX * 1; 


6 


; /* WPILF */ 
(MATCE = 0٧٧ ٢٢ LOS 
see MATIACE جععد٭‎ MKTRACE sees MEPRACE ٢ ٢ os 
f RENO MXTRACE SS ] E 226 >< 3; MXITRACE AS MIC 
٭/‎ 6810077٣٦ 
pes MXTRACFE ہ٤‎ MXTRACE 2 ; МҮТВА ЕЕ 2 ጋር MxTR ag? و‎ / 
/ቐጓፍቻቾ MXTRACE FR MXTRACE *።።ቾቾ MXTRACH A MKTRACE oki) 
RETURN SFOTELSINDEX; 
7م ھ‎ 1 / 
ELSE DO; 
f*Xeek MYTRACT EE MXPRACE Fue METRACE SFR ٣ 
م‎ MXTRACE u... MXTRACE SE Se e > پاتھ وپ‎ 5.0 US MXTRACE EAE AEE 
/* CALL CUTSTINE Ghee2ee 
"XR MXTRACE Ue MYXTRACE لل ال ټس و 0 پر مع یدب‎ ٩۹١ دل‎ 
Jere METRACK wk MY TRACE torte MXTZACE NNN MY PACE 2k / 
RETURN NOTSFOUND: 
END; JI PO 
END: /۶ 100٤51528 EEN 


END 
IF 


4 


ግሩ 


ፆኒ 


lo. - oat ' 24 al “ 2 a! PEU = اې سا‎ Le lo ` Te Le ^ , 
J% Q6 QB ميد جر ند د ميد ميد‎ Mea Be BE Ss se ee Oe m LEM ۲د‎ LL LLL LLL 
OI * * Jo ate ليه‎ Мә ate a Le ai ኢረ له‎ * we! ቃ wie ale wis abs ale رل‎ whe ale عله‎ ais ale aly لد علد‎ he ale a's abe ate sj. ate af Te ate abe ate ab bo Se لو رل‎ ' 
[RAE BE AE BE AE OK AE BE AE BE AE OE EAE Fk BE AE OE X: CAS AE RE OK HE AE AS FS AE OE AE OK >K >K EAE AE AS SEAS AEDS ARIE AE AES BEE AE ች ጓ፡ች፡። 
١ 


/ 
1 
/* “SYSTEM Oo ND ze 
2 


eo uis els ae‏ رلا .2 es‏ الہ ےم nte mios aer‏ مس 
کے Of FF ap ae‏ دوو دوه دوه سيت ወቴ መለ‏ 


* IDLE PROCE 


wt, Js ae «de de وله وليه‎ darts ale alse ep ei» qo We ale J tg ale ate ge ale Ye a's ate ale ate ale أو‎ e ale wie sie sie nie ate ale we sts ate ale sie ate ate 
AE AT AE AE REAL REAL IK BE AS HE AS TEAS AE AC AS AES AL HK FE BLAS BSS HC ATS كر كر كر‎ 2 ጓ፡ كر كر‎ OE AE IS 


/ 
S KOWE 6-229 7 
።/ 


Lo ət 


* THIS PRCCESS IS SCHEDULED IF ALL OTHE? PROCESSES IN x 
/* THE VPM ARF BLOCKED. THE STARTING ADDEFSS 1S PROVIDED*/ 
* TO THE IDLESSTACK AND PLACED IN PRDS.IDLESDBR. A "d 
/* COUNTER IS INCREVMENTEP A?CUT EVZHY SECOND. "€ COUNT */ 
* IS MAINTAINED IN THE PEDS TAELE AND IS A ROUGH MEASUESZ*/ 
/ CF SYSTEM PERFORMANCE BY GIVING AN INDICATION OF THE */ 
* AMOUNT OF TIME SPENT IN THE IDLE PYOGESS. p 


4 


/* CALLS MADE TO:  PLM8&6 م280‎ 72087 TIME m 
+ OUTSLINE у 
J د په‎ sk MERE RE DS BE RE RE RC RENE AE DE RE SE OK IA SKA эк Ле ېد ده‎ К 2 BS AE IK I BE OK AC RE BK DI EE OR REE és / 


IDLESPROC: PROCEDURE REENTRANT PUBLIC; 
DECLARE I BYTE; 


PERE MXTRACE xxx MXTRACF RRE MXTRACE SXx* MYXTRACE xx 
fx MXTRACE eR MXTRACE sexe MXTRACE sex MXTRACE Жжжж / 
/* CALL ٦0٣۴ 

JHA MY TRACK HE MYTRACK AK MYT 


T Ae MYXTRA 
/ቁ*ፍች ኮጂዋጀጳርጀ OR METRACK ددد‎ MIT 


777 CE 
ACE xe MXTPACE 
/* DELAYS ONE 


(1) SCC N / 
LOOP EIERE 


0 


EE Se MYTSACE ےد ادج‎ My Poh op Ba eee ne My Peat a مہ دہ ند‎ Mea ee Ee 
NL تت کت تت‎ ፣ رن اا د وگلا تت ت‎ ه٢)‎ SS MATRA *።ሠዶ/ 
w CALL OUTSLINE(GMSG11); 

٩1 ا تت ټ‎ TI OOS Ty TRACE *ss*s MXTRACZ "xw 
E M c Gh تت‎ eG ee TEACH SSNS MXTRACE “ቹችቸ*/ 


= 


БЕ Oj Tr P2DSSCOUMLES +71; 
ን ከ ን 
END; ET 


/ቸሯ7 2 9 ጓ፡ EE د ېد‎ ASK TAL HK AL AK AK AE AK KS RN A SEN AE A A AA BK AK 3S AE AS OK AS 7 
۳۰۰۰٠٦۱١١٢٣03 05 ROWE 6- 22-24 “/ 
E —— —À —À——À —À — —À— —— —À — —— — — —— ———————— — ——— —— — —À —À ——ÓÀ يم کے‎ - zo... e —À — a 


ШО ONTO PROCESS 15 11121 1221 R7 THE OS LIKE " / 
b INIT AND IDLE. IT E:sS THE ESSERVED ID OF @FER AND A 1 
ٹ۰‎ OF 2E. IT IS ALWAYS BLOCXED OR WAITING UNTIL*/ 
fe IS PREEMPTSD BY TEF USER. #/ 
pes .... ጨጨ ። ኸእ  መሒጭ ኡኡ ርም፡፡-.‹፡.:“ ጨጨ .:።5መስሙመ U p ———————— کک ع‎ ።፡ / 
Pee CALLS MADE TO: OUTSLINE USE 2 
Lé OUTSDNUM INSDNUM > / 
2. INSNUM ”“ 


м = > e =k. 22 3 en‏ لہ J ' Le ale ate ale ale ሓቃ /ፖ Je ate‏ عليه 
TRENNEN ARTEN AHA FAR RICH H‏ كب كرا كرد ኣ። NE ፡ e e SI ጻ፡ ጓ፡ ኣ፡ ጓ፡፡ ጁ NS‏ 3 كا علا 


fH MXTRACE k MXTRACE Seeeek MXTRACE Hx MY PRACE 356A / 
PRA MÄTRACE Ak MXTRACE KKK MXYTRACK XR MY POAC ER =ፍ።=/ 
E MONITOZSPROC: PZOCEDUZE REENTRANT PUBLIC; 

/* DECLARE 

ps PTR POINTFR, 

/* PTRZ POINTER, 

22 PTR3 BASED PTR2 POINTEE, 

/* ALUN ከኬ» ኤኬ 177171 ከ. ከ FORD, E&S® WORD), 

/* CONTENTS BASED PTR BYTE; 


و هم0 ۴ / 

ү (LINECCMPLST2, LCOP2) BTG, 
Gi (QUANTITY, COUNT) БҮЛЕ» 

(> CINCHER መ.) /፡” VATI DOD) PYPE; 


ሚይ ሠ VALIDSEMD = Y; 


es CALL OUTSCES EU 
/* GAIL OD LE) 
/* CALE DN Weg 
yes DO wEILE NCT VALID 
"s CALL INSCHAR(CI! 
/* IF (INCHR = “D”) OR 
Pass YVELIDSCMD = бун; 


> 
)፣ 
BR = ^S") OR (INCHR - FE) TIEN 


HLS 


/ VEIT SCT ኃፐ፻ ቫ፤ 

/* IF VALIDSCMT PPRH "5 CALL 004) ٧1 ٢ n A 
/። END; /* DO WEILE */ 

/፦ IF (INCIR = D) OR INCR =- ር በከን بلج‎ 


/* IF (INCHT=64F) OP (INCER=65H) ОР ۱١١) G G ٥٠ 


/ /* DISPLAY COMMAND SECTION #7 
/* CALL INSDNUM(GADDR.BASE); 

/* CALL OUT SD 

J CALL INSDNUM(CADTE.OFFSET); 
/* PTIZ - QADDEP; 


/ PTR = PTR3; 

/። /* CONTENTS SHOULD NCW BE SET */ 

/* DO WHILF (INCHR«»CR) AND (INCE2<>23H);5 
/* CALL INSCEAR(GINCER); 

/ END; /* DO WEILE */ 

/* IF INCHR = CF THEN DO; 

/ CALL CUTSCHAR( ’-"); 

7 CALL OUTSNUM(CONTENTS); 

ues CELL 7 ٦ 


/* CALL OUTSCFAR(LF); 
ae END; /* IF NCRMAL 1 ‘DDE DISPLA ye, 
ES IF INCER s 25H TUVENMK DC; 
7 COUNT ገ: 
/* CALL OUTSSEEESC 2 Ja 
ys CALL INSNUM(GOUANTITY); 
و‎ BO WHILEeQEMENTITY £i 
/* CALL 00196 8) قد‎ 
/ቾ 87 700 0727525 )ا‎ 0000 
GE CALL OUTSDNUM( ADDR. BAS3)$ 
PES ር ደ ስ ከ ስ ሰ C ጌጤ. 
7s CALL OUTSDNUMI ORT EIE 
Jis LINECOMPLETE = FALSE; 
/۶ DO WHILE LINECOMPLETE = FALST; 
/ CALL OUTSCHAR SS 
DUE CALL OUTSNUM! CONTENTS); 
f ADDR .OFFSET = ADDROQEBSST - 1; 
/* OTR = PINS, 
PES QUANTITY = QUANTO E 
/ቾ IF ((ADDR.OFFSET ANT 22€FH)=9) OR 
/ቾ (QUANTITY = ¢) THEN VIANIBCOMPSEIFETRUS: 
La END; /* DO WHILE LINE NCT COMPLETE */ 
/ END; /* DO WRILE QUANTITY */ 
/* END: فور‎ IT MULTI АККУ БЕШП 
/* END; /* DISPLAY COMMAND SCT R 
/ IF (INCHR="S") Оз 101-275 D ٣٦ 
7 /* SUESTITUTE COMMAND SECTION */ 
/* CALL IN$D2NUM(GADDR.BRASE); 
75 6۸510:0075 EE 
/ CALL INSDNUM(QADDR.OFFSST); 
/፦ CALL CUTSCHAR(*-“); 
/* ppoo s QNS. 


25175 mp; 

Zë CUZRENT CONTFNTS SEOULD NOW 35 ATAILARLT */ 

ETS NU CONTENTS); 

2 تت 0 50 

IS ITS 117022 ج١‎ 

ከስ Veneta  JANDCINCHR<>” ን 

AND(INCHR<>CR); 
CALL INS$CHAZ(QGINCPP); 


i 


+ 1, 


Lo 
ta] 


END; 
pom DN Cl ھل ګګ لل‎ = FALSE 
[ee TEN DO; 
ES ES DE ND GO TO NEXT FOZ SU3 */ 
CALL OUTSCEAR(CR); 
CALL OUTSCZAR(LF); 
ADDR. OF POT = ADD" .CFTISE 
BIR ہے‎ ባን 
CALL OUTSDNUM(ADDR.BAST)5 
CL OUT H ee 
CALL OUTSDNUM(ADDR.OFFSET); 
CALL CUTS$CHAR(/-"); 
L OUT NU CONTENTS); 
TND; /* IF SKIP FOR NEXT SUR */ 
IF (INCE? - N NO: 
TL OUTSET 
۰ً ۹۷ 
5۶۰٠٠5۱٣٠۷٥9۹۱۱۷ ቨር ር።ረ- , )! 
CALL INSCEAZ(Q8INCHR); 


END; 
[17 ) 11058 = CR) TH:N 10022 = FALSE; 
ከ ከ ከከከ ٢ ШО; 

CALL Ma B" 

ን ከ ولت تت‎ -SNDDE-ORRSET - 1; 


?TZ ፦ م‎ 

CALL OUTS$CH*R(CR 

CALL OUTSCE:R(LF 

CALL OUTSDNUM(AD 

CALL 2. 

CALL 6۶۷۹۹۹۹۹4٣۷۵ 

٠۰۰۲۰۰0٣۹01۱ ) 3 

DULL CIS UM CONTENTS ); 
BED. ER GO TO NEXT ADDR */ 


R.BAST)S 
) 
R. 


Oe —— سر‎ 


OLE OET); 


AE AS Ir CHANGE CONTENTS p 
IVES = "X /% EBEINITIALIZE CMD */ 
AND LO OPC ON TINUOUS SUE CMD 7/7 


END e E TUTE COMMAND SECTION */ 


‘INCHR="E°) OF (INCHE=65E) THEN DO; 

/* FIND OUT WHICH VPS TS RUNNING “ME” */ 
INDEX = RETSVP; 

/* NOW PLOCK MYSELF */ 

DISABLE; 

Laer uN = INDEX 


12% 


IF 


ጋፕ 


ےد =ሬዴ‏ تہ کت = 
< ےہ "٢‏ ےھ 7 


d د‎ 
3: ዓን 


EE 


= SS ~~ |S xo SS 
X ë 5 ^e 


At ንየ 


en PB а ا‎ 


` ላ። ነኔያ 
5 st => “v 


w A 
en 


ےد کے 
W ^"‏ ېا 


ግሮ 


M 
C 


= vu ITI NG; 


/፡። VPM ATE 
A LON; / 0او‎ ص٦‎ 


واه 


^^ 


CAL 
/* ENDS /* 
/* 30 TO LOOP; 
/* END; /* MONITOR PROCESS * 
ROK MX PRACE Säi MXTRACE RG MXTRACE "ee دص يرجه زغ‎ RR, 
PERRO MEPL ACK Rank MK TRACE RICK MXPPACT MOR MX TRACE mix 


sts C c ate ate ste we 222 ረ > >: ج٤‎ ምዱ si 2 عله‎ este ale ates ماج‎ ale ate ale «lo 22 sl: ze ale ale ste "Ja alle wie ale ale ale را را 22 2:2 را‎ ale ES ate ale aly ate e ale <° . 8 
ey 0 NM eur ds es ye „5 دوت‎ >~ e. a ' „s “ዮሩ 5 Жр С vs enz 2,8 = |= eí ^," > Tj" ح کی‎ vs ^n" “* 2 م‎ 949 dir Zus ye eye “| Ld hd > = ማማ” - ws, ug 
ы чы. 
D 
„ 


۴5۵۲ ئا‎ 25 ٦ ړل‎ 
/* STARTING POINT OF THE OPERATING SYSTEM 00 


` = اي هد t ale ”ፐ‏ - - وړ 
A A A E EE ee ee‏ 4و ste He Se‏ ?/ 


* ROUTINE INITIALIZES TEE OS EXP ل1 5ل‎ ee ۷٥ E 


sie Sie a ታ ale wie ብኑ ራባ whe په‎ екы ые ول ماخ ساپ ما‎ > te ale ate ale ats nie sir eie ns v» vr Nc eR اې‎ Le GE e ale ale sie ale ale ale یو‎ ጋ %፤ሪ رنه ماو راه‎ Jen: BE OREL е / 
|= A> 2 E DA 4 As A> 22 ы ey KE үз ሜ* A کم‎ rr Ss AS 7” Bir Sun Suz ب‎ ~ ግ* e ማረ - ^ “፥* ውጭና SÉ -e دی‎ ግ* ሜ* ማኔ < e کي‎ e^ 27 ~ y > - “= e. ` Suz ^ ورس‎ 2 y ጭ ጭ 
راپ سای رل را م‎ sir alo nto ړا‎ SE کہ‎ «bo alo ade ate 252 ale ale ate abe ate ale ats eo y? y. de ale ale we sem: ata ړلو رپ رله‎ — 
ጻ፡ ጓ፡ ፡ p^: 2 22 2 MA حي‎ “ተኑ ተ ተ دوہ‎ > = IA 2“ FS FS FE IE ROK BS FB OS FS ጓ። ሻ ና ጻ፡ ኣ። ጓ። = ጓ። AC DE >“ ፍጻ” ግ” کوت که دوه کش سه‎ XS + 2⁄4 2 2,5212 


/۶ ۹) INITIALIZE 2 الات‎ ОГ ዘየር 
DECLART 020521۴7 BEEN 
ሪጋ ۳ 


fM MYTE A CF E ۸)0 2279 ےد ہے‎ es Mire ACE AO ٨ Th CE WM / 
wies MYTRACE seee* MXTRACE => MITRACE Ses ۹٧٩٢۹٣۸٢ K OE 
/ CALL 00175111 O J Cl IR 

2 2S ASF MXTEAQ?Y ጃጻ፡3፡3፡፡= / 


C23 


week MXTDACE mia MXTAACE week MIT 
foxeeR MXTRACE Gees ኮሂሞንልለዐወ፻ጀ ፍፍቻ፡ፍቾ ኮፒፐ 


پا 
Es ee‏ 


"rius 


erp cue MXTRACFE ES 
aa - 


1101۶۶٦ AND PICH‏ مر 

OUTPUT(POFTSCE) = GCERZ / 221 - 10020115 + በሙ ርው 
OUTPUT! PORTSC2) 13H; /* PIC = 1041 080655 3 ٦ 
OUTPUT POT 49H;/* PIC - ICW2 -VFCTGH TABLE ADDRESS ene 
OUTPUT(PORTSC2) = ፻፻፪፤፣ /ቾ PIC — TONA =MCSBE MODE. 007 ٣ 
CUTPUT(PORT$C2) = GAFH; /*PIC —-MMASR ALLOWING INT. ¿AO 


/* BSTABLISH UNIQUE SEQUENT TAS. Ute Oe o 0 ክ፡”. 
j= SET GLOPALS ٦ 

DO WHILE LOCKSSET(@GLOBALSLOC%,119); END; 

PRDS .CPUSNUMFER = CPUST ٣ 

CPUSINIT 6 KP RI 


ZS PELE SSE 6۳108821 TOC Ж 
GLOEALSLCCX = 1 


/* SET UP INITIAL 5۴۸۹ 1٢ ۰۷۹۰۰۰+٢٥ 
درم‎ , ۲۶5713٠٣ = 69 
DC ZZ = 1 TO PRDS.CPUSNUMBER; 

PPDS.VPSSTAET = PRDS.VPSSTERT + MAXSVPSSCPU; 
ET 
/ቾች፡፡ፍ MOCORTFX FR MCORTEX xx MCORTEX kkk MCORTEX *።=ች። 
fX MOCOTTEX Aa MSORTEX Hiss MOORTE TEEN 


tat 


SERO errs WP SSTART + 1; 
ES VPSSPEPSCPU - 21 


pi MEDIEN ہہ یں‎ DEI Hea MOORTEX + MOORTEX Gee 
/ MXTRACP wae MYTRACK ees MKTRACE SHR METRACT es 
/* PRDS.VPSEND = PADS.VPSSTAZT + 2; 

/ቾ ጅ»=ሽ5 ,7255ጅ፻:»50፻ = 51 
JERK MYTOACK FACE MX TRACK MR YXTRACE RR مر ری ہر‎ aoee / 
PRI MYTRACE HAG MXP RACH wee MATO ACE A ME TRACE lack, 


۰۸۱۱۷۷۰۱0۳1 1 T 


Doreen INIT PECC */ 
/* AND MONITC” e 


H 

PROCES 
VPM/ PPDS .VPESTIPT).YPSID = 255; 
NS ORDS.VOSSTAPT). STATS = 1; 
КОО PROS. VPSSTART).VPSPRIORITY = €; 
VPM(PznS.VPÉSTA^FT).EVCSTHZE*5D - 255; 
EEUU PDS.VPSSTASRT).EVCS^WSVALUP = 2; 
VPM/PHDS.UVPSSTART).SPSREa = BOE: 

) N 


1 ٢1۶۶5.25 (7. 
VPM! PADS . VPSSTART+1 
VPMíPRTIS .VUPSSTART+1 
EN oos. VPSSTART+1 
YPM(PEDS .VPSSTAETH1 
VPM PROS .VPSSTARTH 
YPMIPRDS.VPSSTART+1 
VPM(PEDS .YOSSTALT+H1 


; 5 59 - 60+ 9 
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ua 

II 
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ር/ን‏ 
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UN‏ 
[x1‏ 
03 


MITRACT ASE MYTRACT Fe MYTRACE res /‏ میس MXTRECR‏ کک 
(RRR MYTEACH ARE MKTRACE wR MYTEACE ee MYTRACE Axe,‏ 
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SEGMENT: 


E EOL T£PLZ 


OFRSET TYPE SUMEOL 


ط8 
LOCATESEO‏ 
GETWORK‏ 
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РШЕ 
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“6ይ BC C MER Gael 1 
0066 QCEROE 2 G 
UU GPS 667463 0 G 
OS "O APEE UTE 7 
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i aX ሐ 2 


EE G RE ۹۷۵ یم‎ ewe MEDD ECT 
ISIS-II “CS-&6 LOCATER, V1.1 INVOK=D BY 
Br 10626 CETL ADDRESSES (SFGMENTS (& 
GK EE, E 
INITMOD CODE 243294 
GLOBELMODULE DATA (€ 
meso 122 (STACK {7EE) ) 
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Na 70265 PUB OUTER CE44H (B21F PUB INVEX 
ስርን ብ 02842815 08 9+7۶ AFOSR GASEH PUB RECVCHAR 
ከደ.” 4۵۸628 8 00٦ AR4AH 084295 205 ۷ 
Ec €4115 PUB OUTNUM Ses PUB OUTLIN: 
E OST PUP OUTCEAR MESAH | OQEFE PUB INNUM 
GRAH 29748 25 7 034857 0834H PUB CibATE PROC 
VB4AE 2792H PUB TICKET ሸሻ ተ ታዎ ሪው... PUER ORPATESEQ 
ur O4WOE PUBS PREEMPT 68458 | 2355CH PUB ADVANCE 
Weert 9228 18 PUS AVAIT 2۶۰۰٠۰4 20 PUR READ 

ОО ЕН 612228 PUES CREATEEVC RE KK Ee, 
Meee VVC PUR V?SCEEDULER 203511 60338 203 INTVEC 
eee COC PUP INITIALPROC ۳79۵  20192H PUB VPM 

Mees GS59SF PU SEQTASBLE ን ን ፡ CSET PIB SEQUENCES 
9 VOOLH PUB CPUINIT eed ee eee PUB EVCTEL 
eee 0-994 PUE EVENTS “79453 BS5&6H PUB ZDWINTFLAG 
EE. تر جب‎ ሦሠህን ጋ "S ۹ SUE ዚር. 

۲۶۰۰ ٠ت‎ 0۷ ۰") "۹ ОСКЕ 


ከን 


20523 


CLASS 


COD 
COMA 
CODE 
2093 


7472 
DATA 
DATA 


STACK 


NAME 


(ABSOLUTE) 
INITMOD 57 
LIMODULE CODE 
L2MODULE CODE 
GLOBALMODULE C 


DURCH DI ۵٥ 
L2MODULE DATA 
INITMOD PATA 
??SEG 

SCFEDU TH 
STACK 
(ABSOLUTE) 
"ABSOLUTE 

. ABSOLUTE) 
GLOBALMODULE D 


NOS 


H = "٦ 


i 


07 


MEMORY MAP OF ۷۷٣۳ 
RZED FROM PIGS KOR ٦٢ 
YRITTEN TO FILS በከ. ስይ. 
ADDRESS 


w. -—‏ بس په ) 


0000 اد‎ ٦ 


5 800۷4۴ 


START SIDOR LENGTH ALIGN 
هښ || اود‎ QM SE 66 74 17 A 
04201 245R4H QU 8 W 
BACAOH 284۸ اج‎ ЕЕ W 
FRGREH ¿ADS 2C 32H W 
AC@DEP 78 AOC FH ۸ 
-- 
600600 206227 71 ss ` 
20 ОС2Е1Е QU 5 ' 
۷۸۲ 2 2f] 0 7 201 1 ለ 
00511 00 ۲ ACZAH G 
ACSI AE ACSACE 22277 G 
CET CC4F4F 08 h 
CEE 20 ۲ 767 81 A 
SS OF انه‎ ٢)٣ 7078 5 A 
76 ال ان رال‎ ٥7 A 
٥۷ 4 8 КЕШЕН 76 BDF A 
“ለገ 
PE?@OVH NETT US CCC? a ላ 


ፆን ዝህ ከን ት እ 


| ሺ ያስ]. ን ንህ።ክ ህ፡ ስ in file: SCSED.ASM is part of LEVEL 1. 
No special ettributes are required fcr the assembler. 151 5 
د( | اد دن‎ 111604 120 tile: KORZ.LNK, and its memory mat is 
ከከ" ሰብ 10 the map for KC, ¿OR is the development 
EE version of the file KOFE.OPS loaded by FCOPTEX.CM2^ 


er toe CP/M-86 operating system. 


as 


le we ate ale ale als ata ale ats ate whe ኤያሥ Se راي‎ whe 
ت کد کر که که ېه كرت‎ dér AS SN. A ez کرت‎ gu dr 


ROWE 6-22-44 


e` = å- q q q =መመመ መ =መልጠ سے‎ 4 Q q ==} s q x Q Q s q T q q Q سے‎ Q eee سي‎ V سي‎ V ዯ መሙ  መጩ G سے جب‎ ` vg سسب‎ -e -e a s s w — m emm emm کل حسم‎ 


BY SAVING EE 
FLAC ONT E 
AND 77٦ 


CURRENT STACK 17 
CURRENT 


IRET IND FLAG 


7ST UP SAVESCONTEXT PAR eee 
¿SET UP SAVESCONTEXT Pex enh ከ ን ው 


«GET NEW 0 ۶57۶ھ‎ ۷ 
۰ٰ ۹۹۹ r 
GET NEw STACK PCINTER 
STACK SEGMENT 
STACK ٦ 


S EG MENE 


PROCESSOR CONTEXT COMPLETE )۰ھ‎ +0٦ 


te Whe aie we سام‎ y ‘a ale ale ate We woe 
AN حمل كيت كين حيرت‎ dr کے‎ ግ #*#* eis کرے‎ 


TC 501851 111 


THIS 15 DORE 
TER RETURN AS 
THE STACK SEGMENT 
THE VIRTUAL РИО ЕЕ О О О ШЕКА 


N SW 


e «^ nm” xc ale ate aie 2 we wie als aly aie 2 ate 2 Sg ate ale اې‎ wt, <! ye We ale ate ate a's يلي‎ «s» « 
፣ e Y 7 SA gtx es dr AS nS HS كيه درت دوس‎ ግ* #.= كوت حيس‎ mS nM. 2ይ کړس کړس کرس کړس که کي‎ gtx d e 


pes SORDO T ESM FILE 
D TAE FOSLOWING ARE "×× ۶٤ص۷٦‎ 
we SY ۷٧٢٢٢٢٢ 

EXTEN S5 ۶۹ ۹٤٦٣ 

۲۱۱۰۷۰ و 

ТАТАМ Soy Cee 

BATEN -DERIS UD. Eo 

mex TON Prise Ye 

BXTZN HDWINTFLAG:BITE 

BRITEN GLO ۳٣ 
> 0۲۶۷۰ ٰٔ ተከ 


PUBLIC VPSCHIDULER 
PUBLICHE € 


VESCZEDULERZEROC Fee 


ASSUME CS SCHE DUCHE 
ھ‎ 1 8 ۳ 
5SOUME TSISCNNOTTE - 
ASSUMES NUS NO TEE 


| ENTZEY POINT +4 7٣٤٦ 


C LI 
USS 
MOV CX,ZH 


¿MEP VIRTUES دل ی۹‎ 
S JACK PA ٧٢ IND 
‚STACK, AND 511 s j, 
Ee 


INTJOIN: PUSE BP SAVE 
PUSH CX SS AYE 
MOV AX,SE 
PUSH AX 
PUSH SS 
CALL SAVECCNTEXT 
CALL GPTWORK 
PUSH AX 
car ЕР 
POP SS ; INSTALL 
MOV SP,AX ¡INSTALL NEW 


¡SWA?2 VIRTUAL 


129 


ООО КЕИШ О ТАЛЕ TECTED PROCESS STECK 


POP CX ከ መ ብ IND 59 
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POP AX ; EXECUTION POINT 
POP BX 
POP FS 
SC? 
IRET 


PUSE REST. AP DUM ' 
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HARDWARE INT FLAG PROC Nake 


COGI ٢ 

DS : NOTE ING 

SSO NOTITNG 

ES: NOTE ING 

КОТ واد کو‎ ERIS 


EN 
BUM 
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ES 
PX 


ASSUME 
ASSUME 
ASSUME 
ASSUME 
EDW FLAS: 


MOV 


0172-7765 ዘ T 


CH,® ж о му 3X 

A 

۰۱۰۱۱۱۰۰۱۱۷۰۱۱۷۶ ቢን ስ HDWSINTIFLEG 
SS, AA , SEGMENT 


ОКШ МОК ES EG 


MOV 
MOV 
MOV 
MOV 
MOV 
FE 


HARDWARZ_INT_FLAG ENDP 


NES‏ را لاك )د 
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Two files are preserted here: GLCB4L.Sa0 and ill 50 
They are toth separately comviled with the LARGE attribute. 
They are linked into the file: ኣቢ DNE. They are 
represented in the memory map for KORE located at the end of 


appendix Sui INITK will te overwritten by the users 


initialization proce.: 
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ы at / 
we ale 2٠ ٤ wie af EE ን وج‎ ጋር: ረ 5225 ale ate ate alw ate aly ale als ate ፍር we ate ale ale ates مثو‎ ale ale را‎ sie we 2:ረ a' 44% e Vo صا راپ‎ we Ve ate n'e 5:2 ale gie ais ale als «a 
“ዶ > E شرت داه د‎ sie > > MS 2٨ E لوحت دو با بر ساس‎ ርሽ ډه کچھ کے ع ده ک ده لړ" ده که دم ده دم‎ "2 ማከ کس در«‎ ሄት چو کدړه ديم کح دص دم ده ده چم‎ = 
la ۹ tia ito al ads wis ats de وان‎ ale «ls de sta ale ا‎ ጫቃ መጋ nto «x b, wf» ale ate aly 
/። >: 0 0 م‎ Qi oe vile se zc oro XE 5 2: de de d de NS SE A A DA A RINA SE 7 
' سه‎ 
we መ - > 
ፐፐ: LOBO. 
A geb 0 7 4 à e ده‎ 
"PSION: ROWE 6-22-64 
V w ah S ! 4 a lo A سمل‎ = 
ግግ Dx ን 
PROCEDU s 
سا‎ ame 
T PN» NONE 
7) — F 1 N de D 9 t < 
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ን ው፡ህያሇፕ ቲኒህሚዊ ኘ”። ኪ ኪፕ ያ ን ን ን ን ሺ ርር።”ዊ”ዊ ሚሜማ ያብ.!ህዛ SHARED COMMON 
КК КООШО Т С EE 3Y TEF LOCATE COM- 
N ECT eee TES 
GLOBALSMCDULE DATA SEGMENT B5 LOCATzD AT SOME 
AS5SOLUTE ADDRESS. 
x / 


رای عله وله یاه دل رلب ale aly nie nle a gane‏ يله وله wis ale Ve ala‏ عل وا عله ir Ya nie y ode elo alo whe als ale ale ale ale alo ale ale als we sie ale ዉቃው ኳ'ቃ сол: one‏ په سم م له 
AST "^ «x /‏ ديم ديص گج مد کے مر ہے tz dt ማሎ ማ* ማሜ”‏ کي ሜ* D‏ % کوت ግማ” ግ*‏ کت Se aR oR ግ> ግ* ea ma ሜግ* A“ A ne‏ ہو ہے ES ke bh መመ መ. ye EE aAA Se‏ 
meee ALSMODULE: Os‏ 
1 ل ° E ; ያ.‏ 7 
whe ale we sie‏ داد ale aly als aa 'ቃ ይሠ ale ate‏ باد دة ቃቃ sie a ርብ < ales sie ate sie Ve ve‏ 2 <$ راه صا رژ رله را يله ې sie a's sfc sie‏ وله وأو ماح اد عزد عاد کہ اد می یٹ 3225 at‏ 
ہے کک >É > Z‏ کہ x` PRI IIA IA AAA IAS‏ کو وھ کے کے كن ae‏ کک 22 nsn nt 22 EA‏ کے ማ” AG Sé‏ كيت كيت كرت كوت كيك کس هړس كيس كرت څې ے ہے ግ‏ کچھ جح A‏ 
ነቃ "የቃ ale ate ate ale ate ats ate ate ale ale ats 252 ate ate als ale ate als ale ale ao ate al‏ رل راي رې ږا راپ ve werten 2 52 Se = >. wis als ats ale %ረ ale ale af, we se‏ رال ate‏ 
^i y e; ` ey > n SC 2 25‏ 7,7 جم e> ሜ” “٠ 25 ሜኑ ec *, 5 epe ና :, м a A~ A~ EI as JE Sun =. +” AS ES SC ዎነ" ማነ Ss ^: e." ” 2c Sei SA ^" 4" “ e e SA ea‏ 


ከን ክነ. ህ. ጢክ ከሁ THat® LITEPSL DECLARATIONS Az: ALSO 

eevee NO TNS TRE DARVESI & LEWPLAE MODULES OF THE OPERA 
Pee SYSTEM ዜቪፕፕፕ ኪክክካህያህያፕ ፡ሻክከክስስስቢኪከስኪ፡ን፣ E TO Se REFLECTAT 
ZEN ٥ MODULES ALSO. i 


DECLARE 
MAXS CPU በ ከ ስከ ከው 10 , 
MAXSVPSSCPU Dur 1 
MAXSCPUSSSSMAXSVPSSCPU LITEZALIY 100 1 


DECLARE 
eee I | (Cho PS PUBLIC INTTIAL(O); 


TE LS SHOULD eSFLECT THE MAXSCPU ABOVE */ 
DECLARE 
5 ET 0171101113117 
۰۰۶۷ PITE PUPLIC 
TAT نت‎ 0-0 602 00١ 


ቲ/ኑ in 


vri rr) 


NES 
NR 


4 
0 
0 
= 
AN 
peo 


DECLAFE INTSFLAG(MAXSCPU) BYTE PUBLIC; 


› 
፥ 


ስትን ፡ ሺ ስከ ን ይክ (pr PUBLIC™INITIAL(1); 


DECLAFE FYCST3L(1@@) STRUCTURE 
(FUCSNAME PITE, 
VALUE WORD, 
TEREAD ans) PUBLIC 
26 ' INITIAL(ØFEH,0,255); 
/* 2፲፻ር "FE" IS APSERVED FOR THE 0P SYS */ 
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PYTE 0181/10 ١٢ ٢ det 


CPUSINIT 80177 208946 111 "1 ٢٢ 


SAO E NIC 6.5 


3 >9 ۶ ٤ 7٦ 


EIT, 
CORD) PTT 


(STQOSNAYT 


SEQSVALUEZ 


JPM( MAXSCPUSSSSMAXSVPSSCBEN ىب+,+‎ 77٦ 


BETE, 
BY Te 


(VPSID 
VPSSTATE 


VPSPr لل من‎ BYTER 
EVCS 7 BYRET 
UVCSAWSVALUE WORD, 


WC. 
WORD) PUR 


i BREE NS عرد عط‎ EE HE x se tet si BIS OK OK IE REE ENE eege decke ee 


SPS AG 
SS $P EG 


!ጆ1 


DE Clee 


DECI Ri 


DECIES 


DFCL2RE 


END, ١٣٣٦ 
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+۹ ٦۰ 


14 ue 19 
=~ ep e - - 
e» .. ey 


о 3 


м 
- 
| 
١ 
! 
| 
۱ 
| 
t 
| 
۱ 
| 
| 
| 
١ 
! 
i 
| 
i 
| 
| 
۱ 
i 
۱ 
| 
| 
| 
| 
| 
i 
١ 
i 
۱ 
۱ 
| 
۱ 
۱ 
۱ 
| 
۱ 
۱ 
1 
i 
١ 
| 
i 
| 
| 
! 
| 
| 
۱ 
| 
! 
| 
| 
| 
| 


з 


M A N D Q A Cl 1 m‏ + + ممم و 
үм 1 *‏ 
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- t - : የራ Le * . ፥ 5 7 2 ሠ“ 

7 A EE ne de De Dr are ae a 5 >< 832 Z< >Z عأ‎ >< 3 Re de e Ee یه عا یاد څه کله دل عله دام ځ- عا‎ HE IC 3 


A يحاي‎ 


ያ 


ሺዌ 1 “012 DO; 


EL RP Po ea MAP RACE ون ورخ‎ ses MXTRACE *%*/ 
EN TD ጤን... CR ee MATRACE Fees MITRACE ee d 
E DECLARE 
" MSGIS(*) BYTH INITIAL(1@, “ENTERING I 
> 0 9ٍ7 
x CU ከከ ከ ን» ጋ ከ 1 ከ81 PT? FJ EXTERNAL; 
ee DECDATS PABLO INTER: 
ረ END; 
SE ፡ስት”፡፡ ሎሖጎስኅቢ MXTRNCOE OS MXTSRACE ei) 
A TA eae XT PACH ww MXTP9ACE w / 
AWAIT: PROCEDURE( NAME, VALUE ) EXTERNAL; 
DECLARE NAME BYTE, VALUE WORD; 
UND; 


۷٢٢۸۹ ۰۰٢.٦ 
SE 


2۲۱۸۹ 75٣۰506 00700۸۳ 20316 


DUCLA NES үтү; 
fr LPTER INITIALIZATION THIS PROCESS ELOCKS 2 
* ITSELF TO ALLOW THE NEWLY CR*ATEDP 28005856 SEU 
/* TO BF SCHEDULED. 7 
/* THIS AREA SHOULD EE WRITTEN OVER BY USER INIT */ 
/* PROCEDURE MODULE. * / 
رٹ‎ MEUM 5 MXTRACE یدید‎ MYTRACE Freak MYX TEA vk 
/*** MXTPACE ፍ።ቹቸፍኝ MYTRACE Xa kxk 
Be E GES 
wi MXATRICE FAME MXTRACE xxx MXTRACE * 
/*** MXTRACE Nom MYTRACE "xxx 3 


oe 
ek: 
BEE 


ee MAITRACE *x 
مہ ےا‎ "ገ тч ړل راه و‎ e «le T" slo Ma So / 
= Fe Oem A DW Y ነ kk ያኒ fF шч a #@;¿% A Pm Hare a 

EN Ces MITENCE wv, 


۳۸۰۶۲ ۲۸۷۰٠۰۱۹۶0 1); 


END; /* INITIALSPROC */ 
END; "009899 ۹۹۶ 
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